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AL BASIC: 


Su contacto con el futuro. 


Porque le ofrecemos hoy nuestra amplia 
experiencia en Asesoría y Servicios Informáticos, 
pensando en el mañana. 

Somos una empresa con una completa gama 
de productos. Con una capacidad profesional 
adecuada para cada necesidad de nuestros 
clientes. 

Aportamos al mercado nacional la más 
moderna tecnología y un constante esfuerzo 
innovador. 

Así, le ofrecemos soluciones útiles, servicios 
eficaces y la máxima rentabilidad. Con visión 
de futuro. 
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Con cada ordenador se incluye: 

— Cursillo de 8 a 10 horas de duración sobre CPM Plus y dudas de interés 
para los usuarios. 

— Inscripción gratuita en el Club de Usuarios AMSTRAD. 

— 3 Programas a elegir dentro de la gama de programas del Club de Usua- 
rios AMSTRAD, 

— ¿discos vírgenes (para los CPC) y 1 disco y una caja de papel (para los 
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Eaitoridl, 


Queridos lectores: 


Desde este número 4 queremos enviaros un cariñoso saludo, pues a 
través de vuestras cartas vemos el interés que entre el público ha 
despertado nuestra revista. 


Muchos son los que al remitirmos sus respuestas al «Programa 
Concurso» nos hacen interesantes sugerencias, y pensamos que al 
estar esta revista al servicio de nuestros lectores no podemos por 
menos de prestarles una atención especial y estimularles a que nos 
sigan escribiendo. 


Como resultado de la atenta consideración de los mismos hemos 
aumentado el número de páginas del Curso de Introducción al Basic 
y abrimos una nueva sección, totalmente gratuita, para aquellos que 
quieran remitirnos anuncios interesándose por la compra, venta, 
intercambio, dar o recibir clases, cursos... de todo aquello relacionado 
con la informática. 


Con el mismo interés desearíamos conocer vuestra opinión acerca de 
los tipos de programas que os gustaría recibir y si lo hasta ahora 
publicados os ha gustado. 


Esperando nuevas sugerencias, recibid toda nuestra consideración. 
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MHT ingenieros, presentó sus periféricos 
para Amstrad: 

e ANTA 64K.3 AMPLIACION DE MEMORIA, 
BUFFER DE IMPRESORA Y RAM DISK. 
Utilizable con los modelos CPC 464, CPC 
664 y CPC 6128, permite seleccionar entre 
las siguientes opciones: 

e 64K de memoria, para leer y escribir 
datos, cadenas y bloques de caracteres, así 
como copiar o trasladar pantallas. 

e 64K de Buffer de impresora. Permite 
seguir trabajando con el ordenador mientras 
la impresora funciona. 

e 64K de Ram Disk/Basic. La memoria 
simula el funcionamiento de un disco con 
mejor tiempo de acceso. 

Software de manejo contenido en ROM. 


SINTETIZADOR DE VOZ 


Utilizable con los modelos AMSTRAD 464 y 
CPC 464, CPC 664 y CPC 6128, el 
programa que controla este sintetizador, 
contiene las reglas básicas de pronunciación 
en castellano y permite su funcionamiento, 
tanto en modo director, como bajo el control 
de un programa. 

Software de manejo: 

Presetado en cinta, tiene la posibilidad de 

copiarlo en disco o en otra cinta para poder 

realizar copia de seguridad. Viene preparado 
para poder usarlo desde: 

— Basic: Genera cuatro comandos de muy 
fácil uso, cubriendo todas las 
necesidades de manejo. 

— Código máquina: esta forma de 
utilización está orientada a aquellos 
usuarios que poseen un amplio 
conocimiento del código máquina. Incluye 
amplificador de sonido con mando de 
volumen. 


AS-232 
a 
AMSTRAD 


MADE IN SPAIN 


— CENTRONICS-RS 232 Preparado para 
utilizar con el PCW-8256. 

Proporciona al ordenador dos canales de 

comunicación: 

— Canal paralelo (centronics) para el 
manejo de impresoras. 

— Canal serie (RS-232) para comunicar con 
otros ordenadores, modems, plotters, etc. 


== ias CAMBIA 
SU DOMICILIO 


El incremento experimentado por la plantilla 
de los departamentos de Educación y 
Soporte de Micromouse, debido al importante 
crecimiento de la firma durante 1985, ha 
motivado el cambio de sus oficinas a: 
FERRAZ, 66, 1-B 

28008 MADRID 

Tel.: 247 37 03 (3 líneas). 


3 DIMENSIONES 
Y CODIGO MAQUINA 


ACE ha presentado en el mercado español 
el programa HI-RISE; juego en tres 
dimensiones con 99 pantallas diferentes y 
visualización de las mismas desde diferentes 
perspectivas. 


El juego consiste en la guerra entre un 
pintor que intenta pintar un edificio y los 
huelguistas que utilizando todos los medios 
a su alcance deciden detenerle. 

Asimismo ACE también ha lanzado al 
mercado otro programa de juegos realizado 
íntegramente en Código máquina. 


GOGLY es el protagonista del juego, de 
pies adedfos perdido a través del tiempo. 
El juego consiste en trasladar a GOGLY a 
su época. 

Ambos juegos han sido programados para 
ordenadores Amstrad CPC 464 u ordenador 
CPC 664/6128 con un DATA CASSETTE. 


CONTROLA 
TU PROPIO ROBOT 


SVI España ha lanzado al mercado el 
Robotarm, destinado a ayudar a los jóvenes 
con un conocimiento básico de programación 
y robótica elemental. 

El Robotarm consta de una base, brazo 
superior, antebrazo y muñeca. 

Sus miembros están conectados a cinco 
juntas. Cada junta o unión está controlada 
por un motor, de tal forma que cada parte 
del brazo o cada miembro se pueda mover 
independientemente de las otras. 

Las pretensiones de Spectravideo son que el 
uso del Robotarm despierte una curiosidad 
natural en los jóvenes, que aprendan a 
controlar sus movimientos y que aprendan a 
programar en ROGO. 

ROGO fue escogido porque es muy parecido 
al LOGO, el cual está extensamente usado 
en los colegios con el ROGO-TURTLE. 
Aunque el Robotarm está limitado en sus 
aplicaciones (por ejemplo, no se mueve al 
ras del suelo...), está dirigido primordialmente 
a los muy jóvenes. 


MEN 


su «cuaderno de programas». 
Su finalidad es la de posibilitar la conservación y el desarrollo de programas. 


El gran problema que se plantea a cualquier aficionado a la informática es dónde escribir sus programas. 
AMSTRADMANIA ha decidido resolver este problema ofreciéndoles en cada número una hoja tipo donde poder 


Cuaderno de apuntes 


AMSTRADMANIA, revista de microinformática, cuyo fin es divulgar y ayudar al lector, tiene el gusto de presentar 


archivar y anotar sus posibles programas. 
Este cuaderno se divide en las siguientes partes: 


1: 


Aquí tiene que poner el título 
de su programa. 

Descripción del programa, 
pasos, evolución, 
funcionamiento del programa, 
etc. 

Número de línea del 
programa. 

Pasos, sentencias, órdenes o 
variables correspondientes a 
cada línea. 

Zona destinada al 
organigrama para facilitar el 


entendimiento y evolución del 


programa. 


Recomendamos que los 
programas sean escritos con 
lápiz mientras se estén 
inventando, puesto que al hacer 
un programa es inevitable el 
tener que borrar una línea o 
cambiarla. 


TITULO 


DESCRIPCION 
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INICIACION AL BASIC 


— Instrucción de asignación. 
— Presentación. 

— Entrada de datos. 

— Variables. 

— Ejemplos. 


EMPEZANDO A PROGRAMAR 


— Las fórmulas. 

— Jerarquía de los operadores. 
— Cómo cambiar una instrucción. 
— La Instrucción REM. 

— Ejemplos. 


INICIACION AL BASIC 


El lenguaje BASIC es el lenguaje con el 
que podemos comunicarnos con el 
ordenador. Este lenguaje consta de una 
serie de palabras denominadas 
instrucciones que indican al ordenador lo 
que. debe hacer, estas palabras se 
introducen generalmente por el teclado. 


El conjunto de palabras o instrucciones es 
pequeño, tales como: LET, PRINT, INPUT, 
GO TO, IF THEN, READ, DATA, FOR, 
NEXT y algunas pocas más según la 
versión del BASIC. 


Estas instrucciones son como los verbos, 
indican la acción a realizar, pero deben ir 
acompañadas de unos parámetros sobre 
los que realiza esa acción, estos 
parámetros son: las variables, los números 
y los operadores. 


Delante de cada instrucción se coloca un 
número que indica el orden o secuencia 
para esa instrucción dentro de un conjunto 
de instrucciones. Un conjunto de 
instrucciones es lo que se denomina 
programa. 


INSTRUCCION DE 
ASIGNACIÓN 


La instrucción más sencilla es LET, se 
usa para asignar un número, el resultado 
de una operación e incluso el valor de 
una variable en otra variable. Ejemplos: 


10 LETB = 6 
20 LETA = 2 


q. 2 
*x B 


instrucción 
A = 2 *k B parámetros 
A B variables 
+ xk Operadores 


Esto debe entenderse así, el resultado de 


la operación a la derecha, se asigna en la 
variable de la izquierda. 


PRESENTACIÓN 


La instrucción PRINT presenta el 
contenido de una variable. Siguiendo el 
ejemplo anterior, si ponemos: 


30 PRINT A 


entonces aparece en la pantalla el 
resultado, o sea 16. 


ENTRADA DE DATOS 


Una instrucción de entrada de datos es 


INPUT, si el ordenador encuentra una 
instrucción así: 


40 INPUT C 


el programa se detiene hasta que por 
teclado demos un valor a C, cuando se 
introduce el valor se asigna a C y el 
programa continúa. 


VARIABLES 


Las variables se presentan mediante un 
conjunto de letras y números, pero 
siempre comenzando con una letra. 


Son ejemplos de variables: 


A AB 
B AL 
C A1B e 


Este tipo de variables se 
denominan numéricas porque sólo podemosg 
asignar en ellas número. 


e 
EJEMPLOS 


Suma de dos número. 


10 LET A 

20 LETB 

30 LETS + B 
40 PRINT S 


Multiplica por 5 cualquier N.” dado. 
10 INPUT N 


20 LET P = 5XN 
30 PRINT P 


EMPEZANDO A 
PROGRAMAR 


LAS FORMULAS 


Los ordenadones son muy rápidos en 

hacer los cálculos aritméticos. Pero hay 

que tener mucho cuidado cuando le 

indicamos algo en ser muy claros para 

que no haya equívocos. Por ejemplo si 

queremos hacer el siguiente cálculo: 
41=9 


23 
y ponemos así la instrucción BASIC: 
20 LET H = 41 + 9/23 
el ordenador interpreta esto así: 


41+ 9 
23 


que no es lo mismo que queríamos hacer. 


La forma más correcta de escribir ésta es 
así: 


20 LET H = (41 + 9/23 


Los paréntesis sirven para indicar que 
deben tomar lo que hay entre ellos como 
una unidad. 


También debemos recordar que los 
símbolos para hacer los cálculos que hay 
que usar en BASIC son: 


+ suma 

— resta 

X multiplicación 

P división 

exponenciación (elevación a una 
potencia) 


JERARQUIA DE LOS 
OPERADORES 


Los símbolos u operadores para hacer los 
cálculos tienen un orden de prioridad o 
jerarquía en las fórmulas BASIC. Primero 
se pone la exponenciación, luego la 
multiplicación y división y en tercer lugar 
la suma y resta; siempre de izquierda a 
derecha. 


Queda entonces establecido un orden en 
las Operaciones que es: 


1 realiza los cálculos entre paréntesis 
2 exponenciación 

3 multiplicación y división 

4 suma y resta 


Por consiguiente si queremos hacer el 
siguiente cálculo: 


21+ 7 
4 


+ 912-3+4 « 29 


en la instrucción BASIC lo expresaremos 
así: 


30 LET K = (21+7)/4+912-3+4+29 


y el orden de las operaciones es: 
(21+7)/4+912-3+4+29 
28/4+912-3+4+ 29 
28/4+81-3+4x 29 
7+81-3+4 +29 
7+81-3+116 
88-3+116 
85+116 
201 


COMO CAMBIAR UNA 
INSTRUCCION 


Si al teclear una instrucción nos 
equivocamos, por ejemplo 


20 LETG=4XxA-—3xXxB+H 


cuando lo que queríamos es: 


20 LETG=4XA-9XB+H 


Todo lo que tenemos que hacer es teclear 
la instrucción correcta y la anterior se 
borrará automáticamente. 


LA INSTRUCCION REM 


Esta instrucción sirve para indicarnos que 
es lo que hace el programa, o parte de 
un programa, por ejemplo: 


10 REM CALCULO DE LA SUPERFICIE 
DE UN CIRCULO 

20 INPUT R 

30 LETS = + R112 

40 PRINT S 


No tiene ningún efecto sobre el programa 
y lo mismo sería: 


20 INPUT R 
30 LETS =  R112 
40 PRINT S 


Es solo un comentario que nos sirve de 
guía y la persona que lee el programa 
interpreta fácilmente el significado del 
programa. El ordenador no procesa esta 
instrucción, sólo la presenta en el listado 
del programa. 


EJEMPLOS 


1) Cálculo de la siguiente expresión: 
7 «e 18 
3 


+ 4 * 312 — 
91 


+ 11 
10 REM CALCULO 
20 LET K = (7 + 19/ 3 + 4 312 — 
91/7 + 11 
30 PRINT K 
2) Area de un rectángulo: 
10 REM CALCULO DEL AREA DE UN 
RECTANGULO 
20 INPUT L 
30 INPUT A 
40 LETS=L AA 
50 PRINT S 


remitase 
a la página 
de suscripciones 


MULTIGRAF/V5 


Este programa está concebido como 
ayuda a quien necesite un estudio 
por encima de alguna o algunas 
funciones matemáticas. No obstante, 
tiene algunas limitaciones que a 
continuación se exponen. 


En el caso de asíntotas, el 
ordenador, unas veces las dibuja y 
otras no, depende de la función, y 
de las cotas que le demos a la «x» 
y a la «y», por ejemplo en la 
función 1/x, sí que las dibujará por 
estar las imágenes de los extremos 
más cercanas al cero «0» y con 
signo contrario, una arriba y la otra 
abajo. 


También se puede dar el caso de 
una función como Vx en la que no 
existe f(x) para valores de «Xx» 
menores que cero «0», en estos 


casos la función no se dibujará para 


tales valores, y empezará cuando la 
f(x) sí que exista. Además una 
función de la forma Vx tiene dos 
imágenes + Vx y — Vx, pues bien, 
el programa sólo dibujará la rama 
positiva. 


Otra limitación, es el caso de que al 
dibujar una función, la «y» rebase el 


rango de los enteros, esto es, salga 
de intervalo [-32.767, 32.767], en 
cuyo caso podrían salir en la 
pantalla líneas que no se 
corresponden con la realidad de lo 
que es la función. 


Estas son las limitaciones existentes. 
Para no confundirle, es conveniente 
que conozcas las asíntotas de la 
función y los puntos en los que la 
imagen no existe (cuando se den 
estos casos, ya que normalmente no 
suele haber problemas, al ser las 
funciones en estudio de un tipo 
mucho más sencillo y no contener 
cosas extrañas como las 
anteriormente expuestas). 
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DIVISIONES: 


Dibuja rayitas a lo largo de los ejes 
con una separación igual a los 
incrementos introducidos. 


1. Cada vez que se llama a 
«DIVISIONES», se borran las 
divisiones anteriores (si las hay). 

2. Si cuando se pide los 
incrementos, ponemos al menos 
en uno de ello un cero, «0», el 
programa volverá al menú sin 
hacer nada (esto es lo que 
debería de hacer para borrar las 
divisiones, si no quiere poner 
después ninguna). 


NOTA: El cero, «0», se puede 
introducir, sencillamente pulsando 
<ENTER> (el grande, ya que el 
pequeño está redefinido). 


CUADRICULA: 


Dibuja una cuadrícula sobre la 
gráfica con una separación entre 
líneas igual a los incrementos 
introducidos. 


1. Cada vez que se llama a 
«CUADRICULA» se borra la 
cuadrícula anterior (si la hay). 


2. Si cuando se piden los 
incrementos, pone al menos en 
uno de ello un cero, «0», el 
programa volverá al menú sin 
hacer nada (esto es lo que 
debería hacer para borrar la 
cuadrícula, si no quiere poner 
después ninguna). 
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ECUACION: 


Le permite definir una nueva función 
matemática. 


Al introducir la función, el programa 
no se está ejecutando, sino que 
está interviniendo sobre una línea de 
un listado (lo que contiene la 
definición de la función). 


Una vez escrita o modificada la 
línea que contiene la definición de la 
función, pulse <ENTER> (grande) 
para que la línea quede como parte 
del programa, y a continuación pulse 
<ENTER> (pequeño), que, al estar 
redefinido adecuadamente, continúa 
la ejecución del programa. 


Si «COTAS» es «OFF», después de 
haber pulsado <ENTER> del 
teclado numérico, se le pedirán las 
cotas numéricas entre cuyos 
valores quiere ver la gráfica. 


Los valores pedidos son: 


«MAXIMA Y»: máximo valor de la 
«y», 

«mínima y»: mínimo valor de la «y». 
«MAXIMA X>»: máximo valor de la 
«X>»., 

«mínima x»: mínimo valor de la «x>». 


Si introduce valores erróneos, como 
por ejemplo, un valor «mínimo y» 
mayor que «MAXIMA Y», se le dará 
el oportuno mensaje de error. 


«MAXIMA Y», «mínima y», 
«MAXIMA X» y «mínima x», han de 
ser introducidos en este orden, y 


separados por comas, «,», es decir, 
si quiere que «MAXIMA Y» = 10, 
«mínima y» = —5b, «MAXIMA X>» = 


15, «mínima x» = O, debe escribir, 
al pedir estos valores: 


10, =5, 15,0 
y después pulsar <ENTER> 
(grande). 


Si «COTAS» es «ON», no se 
pedirán las cotas, y se trabajará con 
las anteriores. 


TABLA: 


Al introducir un valor de «Xx», el 
programa devuelve el valor de f(x) 
correspondiente. La «x» puede ser 
un valor que no aparezca en la 
gráfica. Al pulsar <ENTER> 
(grande) el programa vuelve al 
menú. 


LOCALIZAR: 


Trazará una línea desde la «x» 
introducida hasta la gráfica, y desde 
el punto de corte de esta línea con 
la gráfica, hasta el eje «y». Se 
muestran en la pantalla los 
componentes «x» e «y» en pixels 
del par (x, f(x)) (tomando como 
origen, punto (0,0), es decir, pixel 
(0,0), la esquina inferior izquierda de 
la gráfica) y también se muestra el 
valor de f(x), siempre que «x» y f(x) 
estén dibujadas en la gráfica. 

Al pulsar <ENTER> (grande) el 
programa vuelve al menú. 


SUPERPOSICION: 


Pulsando «S» se cambia el modo 
«DUAL ». 


Dual on: Permite superponer la 
nueva gráfica que defina, a la 
existente en pantalla. 


NOTA: Aunque tenga en pantalla 
más de una gráfica los comandos 
del programa se referirán siempre a 
la última. 


Dual off: Borra la gráfica al definir 
una nueva. En la pantalla sólo 
aparecerá la nueva función. 


FIJAR COTAS: 


Pulsando «F» se cambia el modo 
«COTAS». 


Cotas on: Después de definir la 
nueva función, no pedirá las cotas, 
sino que trabajará con las 
anteriores. 


Cotas off: Pide nuevas cotas, 
después de definir una función 
nueva. 


HALLAR RAICES: 


Halla la «x» cuya f(x) corresponde 
al valor pedido con una precisión 
dada. A continuación se explica 
esto. 


En primer lugar se pedirá la 
precisión con la que quiere hallar la 
«X», si no introduce nada y pulsa 
<ENTER> (grande) se tomará por 
defecto una precisión de 0,00001, 
esto quiere decir que el valor que le 
dé como solución el ordenador 


estará comprendido entre los 
valores: x + 0,00001 y x — 0,00001 
o lo que es lo mismo x + 10? y 
x= 10? 


A continuación se le pide el valor 
de f(x), en concreto se pide «y = 


(0 por defecto)». Si quiere hallar 
una raíz, en el sentido convencional, 
esto es, la intersección de la función 
con y = O, basta con pulsar 
<ENTER> (grande) y se tomará por 
defecto «y = 0» con lo que se da a 
entender que quiere hallar un 
número «x» tal que f(x) = 0, con la 
precisión dada para la «x». Si 
introduce en este apartado el valor 
0,7, por ejemplo, esto querrá decir 

. que va a hallar el valor de la «x» 
tal que f(x) = 0,7. 


Después se le pedirán los extremos 
del intervalo en el cual está 
contenida la «x» buscada. Ha de 
ser un intervalo aislante, es decir, 
un intervalo en el cual sólo hay una 
raíz. Además se ha de cumplir que 
los extremos sean tales que: 


fíextremo 1) > «y» y f(extremo 2) < 
«y» (0) 

f(extremo 1) < «y» y flextremo 2) > 
«y». 


Siendo «y» el valor introducido en: 
«y = (0 por defecto)». Una vez 
cumplidos estos requisitos hay que 
introducir estos valores. Primero 
introduzca el extremo menor del 
intervalo y luego, después de una 
coma «,», el extremo mayor. Una 
vez que pulse <ENTER> (grande) 
el programa empieza a hallar la 
solución. 
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En caso de error al introducir lo 
extremo del intervalo, éstos se nos 
pedirán nuevamente. 


El sistema utilizado para hallar las 
raíces es el de dicotomía. 


AMPLIACION: 


Le permite ampliar una porción de 
una gráfica. Con los cursores 
moverá un cuadrado que aparece 
sobre la gráfica, una vez situado 
sobre el sitio que desee ampliar, 
pulse <COM> y aparecerá el trozo 
ampliado. 


Si antes de pulsar <COM> cambia 
de opinión y no quiere la 
ampliación, basta con pulsar 
<CTRL> <COM>, para volver al 
menú. 


En la pantalla, según mueve el 
cuadrado con los cursores, van 
apareciendo los valores de las 
coordenadas «Xx» € «y», 
correspondientes al vértice inferior 
izquierdo del mismo. 


Si al hacer la ampliación DUAL está 
en ON, la ampliación se 
superpondrá en la pantalla a la 
imagen existente en ésta. 


INTEGRACION: 


Hallar el valor numérico de la 
integral de la función entre dos 
puntos dados «a» y «b». Aquí el 


programa empieza pidiéndole en CUADRICULA: CX = incrementos de 
número de divisiones en las que «xXx». CY = incrementos de «y». 
quiere dividir el intervalo para hallar COTAS: MX = cota superior de «Xx», 
su superficie. El programa tomará el mx = cota inferior de «Xx». 

doble del número que introdujo, ya MY = cota superior de «y», 
que para el algoritmo se precisa un my = cota inferior de «y». 

número par de divisiones. Cuanto 

mayor sea el número de divisiones Si las divisiones la cuadrícula han 
más exacto será el resultado, sido borradas, aparecerá el valor de 
aunque también se tardará más las últimas que hayan sido 

tiempo en obtenerlo. dibujadas. 


Después se pide el extremo menor 


del intervalo a integrar y a A 


continuación el mayor. Si introduce 

para el extremo inferior un valor 

mayor o igual que el extremo 

superior, el programa volverá a pedir 

los datos referentes a estos em 
extremos. Se puede integrar E 


: : 30 INK 1,15 
cualquier intervalo, aunque no 50 KEY 140,"mode 2: ink 0,l:pen l:paper 0"+CHR$(13) 

60 KEY 139,"cls:goto 180"+CHR$(13) 

70 CLS:xo$=CHR$(23)+CHR$(1) :no$=CHR$(23) +CHR$(0) 
aparezca en pantalla, como parte de 20 Mindo M1 UOn180r do BL: BAPERNLS LSPEABA, OL CLON 

Le: 90 WINDOW 42,1,54,1,20:PAPERH2,O:PENHZ, 1: CLSHZ 

la gráfica. 100 WINDOW $O,1,50,22,25:PAPERHO, 1: PENHO,O:CLSHO 

110 WINDOW 43,51,80,22,25:PAPERH3, O: PENHS, 1: CLSHS 

120 WINDOW $4,7,15,21,21:PAPERH4,O:PENH4, 1:CLSH4 

130 WINDOW 45,18,27,21,21:PAPERHS, O: PENHS, 1: CLSHS 

140 WINDOW H6,55,80,1,3:PAPERH6,O:PENH6, 1:CLSH6 

á 150 dual=-1 : fijos-1 

NOTA: Tenga en cuenta que SI la 160 CLS ; CLSHI 3 CLSH2 : PRINT 44," DUAL off"; ; PRINT HS,” 


COTAS 044"; 
Tal ¡ ¡ 170 GOSUB 1750: REM ecuacion 
superficie va por debajo del eje, 180 IF dual=-1 THEN CLSH2 : pasod=0 ; pasoc=0 ; paso=0 
z : 190 PRINT nos; 
Y = 0, será negativa. 200 FE amplisi THEN ampli=0:G0TO 240 
di 210 DEF FN$(x)=SIN(x) 
220 ON ERROR GOTO 880 
230 1F fijo<O THEN ¿PRINT" A CONTINUACION INTRODUCE LAS COTAS 
DE LA GRAFICA ";" 


También tiene que tener cuidado EN EL ORDEN SIGUIENTE, Y SEPARADAS POR COMAS ”, 


” 
MAXIMA Y, minima Y, MAXIMA X, minima X"; INPUT egy,ely,egx, 


con la elección del número de de E5EU REM escritura de datos en cuadro 


240 GOSUB 2380 : 


divisiones, sobre todo SI el intervalo 260 TES ESEEIN THEN PRINT "<ERROR> MAXy<=MINy...REPITE POR FAVOR”: 
z 2 . Fa signal=1 
270 IF gx<=elx THEN PRINT "<ERROR> MAXx<=MINxXx...REPITE POR FAVOR": 
está próximo a una asíntota, en 70 1 esxesela < «<=MIN 
¡ ¿E 1=1 THEN FOR tar=1 TU 7000:NEXT:GUTO 230 
cuyo caso el valor de la integral 20 disco te9rzei : plxeuni=aoo/imts 
z id bl t f n . 3n 300 disty=ABS(egy-ely) : pixyuni=300/disty 
310 ORIGIN 29,99,24,424,399,99 
varia consi era emen e en u CIO 320 x=elx : YZENE O) : pixy=(y-ely)*pixyuni 
IviQi ipixy=0 : tipixx=0 
del número de divisiones. E 
350 FOR pixx=1 TO 399 
360 x=pixx/pixxunitelx 
370  y=FNf1(x) 
En el cuadro que aparece en la A 
: ¡ A IF -=1 AND -2=0 THEN eror=0:MOVE pixx,pixy 
esquina inferior derecha de la 1 Play 32767 THEN pixy=32787 


DRAW pixx,pixy 


pantalla aparece toda la información aso osuE 1030 :REM EJES COORDENADOS 
referente a los valores de: ÓN de 
290 Ren ; 
500 CLSH1:CLSRH6:PRINT nos; 
510 PRINTH6 


DIVISIONES: DX = incrementos de ñ 520 PRINTH6," OPETONES” iS ERINTAL 


530 PRINTH1,” Divisiones...<d 


«x». DY = incrementos de «y». e y 


HHHHHHHH DAVID GARCIA (1985) HHHHHHHH 


PRINTH1," 
PRINTH1," 
PRINTH1," 
PRINTH1," 

e 


Tabla........<to” 
Localizar....<£12” 
Superposicion<s>” 
Fijar cotas..<f>" 
Hallar raices<r>” 
PRINTH1, Ampliacion...<a>" 
PRINTH1," Integracion..<i>"” 
a$=UPPERS (INKEY$) 

, THEN GOTO 800 
THEN GOTO 1530 
THEN GOTO 1750 
THEN GOTO 1840 
THEN GOTO 1990 
THEN dual=dual*-1 
THEN fijo=fijoX*-1 
THEN GOTO 2590 
THEN GOTO 2790 

GOTO 3040 


PRINTH1, 


¿GOTO 2490 
¿GOTO 2500 


GOTO 6390 
REM 
divisiones 


REM e 
ORIGIN 24,99,0,640,0,400 


CLSH1:CLSH6: PRINTH6: PRINTH6, " DIVISIONES" 


IF increx<>0 AND pasod=1 THEN color=0 ; GOSUB 1110 ; REM Borrar 


las division es anteriores 


820 
830 
840 


GOSUB 1390 ; REM preguntas y calculos 

GOSUB 2280 : REM escribe datos 

GOSUB 1110 ¡REM PINTA DIVISICUNES 

ORIGIN 29,99,24,424,399,99 

GOTO 500 

REM 

REM A E E 


ERL=320 AND(ERR=S OR ERR=6) THEN eror=1:RESUME NEXT 
ERL=370 AND(ERR=S OR ERR=6) THEN eror=1:RESUME 440 
ERL=1910 THEN GOSUB 940:RESUME 1930 
ERL=2080 THEN GOSUB 980:se=1:RESUME 1990 
ERL>3090 THEN GOSUB 980: RESUME 3050 
RESUME NEXT 
IF ERR=11 THEN PRINTH1,"4("¡vx$;")= Infinito" 
IF ERR=S THEN PRINTH1," improper argument” 
IF ERR=6 THEN PRINTH1,"+(";vx$3")= Overflow" 
RETURN 
IF ERR=11 THEN PRINTH1, "Infinito" 
IF ERR=S THEN PRINTH1, "improper argument” 
IF ERR=ó THEN PRINTH1,"Overflow" 
RETURN 
REM 
REM 
REM 
IF paso=1 THEN GOTO 1080 
PLOT O,O:DRAW 400,0: DRAW 400,300 
PLOT 0,O:DRAW (1,300; DRAW 400,300 
paso=1: FETURN 


dibujo divi 


dibujo ejes 


IF paso=1 THEN GOTO 1080 

PLOT O,O:DRAW 400,0: DRAW 400,300 
PLOT 0,0: DRAW 0,300: DRAW 400,300 
paso=1: RETURN 
REM 
REM 
REM 
ORIGIN 294,99,0,640,400,0 

IF increx<1 THEN increx=1 ELSE increx=ROUND(increx,0) 

IF increy<1 THEN increy=1 ELSE increy=ROUND(increy,0) 

FOR cx=0 TO 399 STEP increx 

PLOT ex,-2,color:; DRAWR 0,-5 

NEXT 
FOR cy=0 TO 299 STEP increy 

PLOT -1,cy : DRAWR -5,0 

NEXT 

PLOT -100,-100,1 

ORIGIN 29,99,24,424,399,99 

pasod=1 

RETURN 

REM 
REM —- preguntas y calculos __. 
REM 

INPUT H1, "Incremento X";divix 

INPUT H1, "Incremento Y";diviy 

IF divix=o OR diviy=0 THEN GOSUB 1480 : GOTO 500 
color=1 

IF a$="D" THEN increx=divix*pixxunicincrey=diviy*pixyuni 

IF a$="C" THEN increxi=divix*pixxunitincreyl=diviyX*pixyuni 
IF (divix=0) THEN increx=399 : Esta subrutina controla el 
IF (diviy=0) THEN increy=299 : por cuadricula o division 
RETURN 

IF a$="D" THEN pasod=0 ELSE pasoc=0 
RETURN 
REM 
REM cuadricula 
REM e 
CLSH1:CLSH6: PRINTH6: PRINTH6, ” 
PRINT x0%; 

IF pasoc=1 THEN GOSUB 1650 
GOSUB 1390 
GOSUB 2340 
GOSUB 1610 


s=a=s======es=dibujadivds soc cursos 


CUADRICULA"; 


cuadricula XOR 


IF increxi<1 THEN increxi=1 

IF increy1<1 THEN increyi=1 

FOR ccx=0 TO 399/increx1 

Cx=ROUND (ccx*increx1,0) 

FOR qy=1 TO 299 STEP 4:PLOT cx,qy:NEXT 
NEXT 

FOR ccy=0 TO 299/increyl 


1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1785 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 


Cy=ROUND(ccy*increyl,0) 

FOR qx=1 TO 399 STEP 4:PLOT qx,cy:NEXT 
NEXT 

pasoc=1 


AA E TN 


PRINT " Escriba la ecuacion. A continuacion pulse <ENTER>"; 
PRINT ” (grande) y luego <ENTER> (del teclado numerico)” 
EDIT 210 
REM 

REM 

REM 
CLSH1:CLSH6: PRINTH6: PRINTHÓ, " 
INPUT $H1,"X"jvx$ 

IF vx$="." THEN 1850 

IF vx$="" THEN GOTO 490 

com= ASC(LEFTS(vx$,1)) 

IF NOT (com=43 OR com=45 OR com=%6 OR(com>47 AND com<58)) THEN 


TABLA”; 


GOTO 490 


1900 
1910 
1920 
1930 


1990 


1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 


vx=VAL (vx$) 

valor=FN+ (vx) 

PRINTH1, "4 ("3vx$;")="5:PRINTH1, TAB(13) USING "HHH.HHHH"5valor 
GOTO 1850 

REM 

REM 

REM 

CLSH1: loca=0:PRINT xo; 
CLSH6:PRINTRH6: PRINTH6, " 
INPUT H1,"X"3vx8 

IF vx$="," THEN 1990 

IF vx$="" AND loca=0 THEN GOTO 490 

IF vx$="" AND loca=1 THEN GOSUB 2170:GOTO 490 

com= ASC(LEFTS(vx$,1)) 

IF NOT (com=43 OR com=45 OR com=46 OR(com>47 AND com<58)) THEN 


LOCALIZAR"; 


IF loca=1 THEN GOSUB 2170:GOTO 490 ELSE GOTO 490 


2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 


VX=VAL (vx$) 

IF loca=1 THEN GOSUB 2170 

IF (vx<elx)OR(vx>»egx) THEN GOSUB 2190:se=1:GO0TO 1990 
y=FNf (vx) 

IF (y<ely) OR(y»egy) THEN GOSUB 2200 :se=1:GOTO 1990 
loca=1 : se=0 

y=y-ely 

pixy=y*pixyuni 

pixx=(vx-elx)X*pixxuni 

GOSUB 2170 

GOSUB 2210 ¿+ REM escribo datos 

GOTO 1990 

IF se=0 THEN PLOT pixx,O:DRAW pixx,pixy:DRAW 0,pixy 

RETURN 

PRINTH1,"X excede limites”:;RETURN 

PRINTH1,"Y excede limites": RETURN 


datos localiza 


PRINTH1, "pixel x"jpixx 

PRINTH1, "pixel y"jROUND(pixy,0) 
PRINTH1,"4("5vx8;")="5FN4 (vx) 
RETURN 

REM 

REM pra 
REM 

LOCATE $3,2,1 : PRINTHS, "DX "¡USING "HHHHH.HHHH"5divix; 
PRINTH3, " DY "¡USING "HHHHH.MHHHA"¡diviy 

RETURN 

REM 

LOCATE $43,2,2 : PRINTH3,"CX "¡USING"HHHHH.HHHA"5divix; 
PRINTH3," CY "¡USING"HRHHHH.HHHH"5diviy 

RETURN 

REM 

LOCATE $3,2,3 : PRINTHS, "MX "¡USING"HHHHH.HHHH"5e9x; 
PRINTH3," mx "¡USING"HHRHH.HABH"jelx; 

LOCATE $43,2,4 : PRINTH3, "MY "¡USING"HHHHH.HUHH"5egy; 
PRINTH3," my "¡USING”"HAHHH. HANA "5ely 


cuadrado de datos 


e superposicion 


IF dual>0 THEN du$="on " ELSE du$="0f4" 
PRINT $4," DUAL ";dus; 
GOTO 640 : REM vuelvo al menu principal 


A A fijar cotas 

IF fijo>0 THEN co$="on ” ELSE cos$="044+” 

PRINT M5," COTAS ";co$; 

GOTO 6490 : REM vuelvo al menu principal 

REM 

REM EAS E IRRIGOS JE VA FUNCION 

REM 

CLSH6: PRINTH6: PRINTH6, " RAICES”; 

CLSH1: INPUTH1, "Precision"jrd: IF rd=0 THEN rd=0.00001 
INPUTH1,"y=(0 por detecto) "¡tr 

red=-LOG1O(rd):IF red>INT(red) THEN red=red+1 
INPUTH1,"la,bJ”"jea,eb 

IF (FNf(ea)-tr)X(FNf(eb)-tr)>0 OR eb<=ea THEN GOTO 2630 

IF FNf(ea)=tr THEN sol=ea:GOTO 2710 

IF FN+(eb)=tr THEN sol=eb:GOTO 2710 

inc=(eb-ea)/2 

IF inc<rd THEN GOTO 2720 

IF (FNf+(ea)-tr)X(FNf(eatinc)-tr)<=0 THEN eb=eatinc ELSE eas=eatinc 
GOTO 2650 

PRINTH1, "Solucion exacta: ":PRINTH1,sol1:GOTO 2730 

PRINTH1, "solucion: ":PRINTH1,ROUND(ea+tinc,red);CHR$(171)5rd 
PRINTH1, "Otra? S/N" 
as=UPPERS(INKEYS):; IF a$="" THEN 2740 
IF a$="S" THEN 2600 ELSE 500 

REM 

REM Ampliacion 
REM 

CLSH1:CLSH6: PRINTH6: PRINTH6, " 
PRINTH1," <COPY>.... Ampliar” 
PRINTH1," <CTRL><COPY>.Salir” 
PRINTH1,"” Xx ye 

q%=0: w%=0 


AMPLIACION”; 


¿PRINTH1:PRINTHA 


2840 PRINT x0$;:G0OTO 2920 2940 IF w%<0O THEN w%=291 

2850 MOVE q%,w%: DRAWR 80,0: DRAWR (0,560: DRAWR -80,0:;DRAWRK 0,-60 2950 MOVE q%,w%: DRAWR 80,0: DRAWR 0,60: DRAWR -80,0:DRAWR 0, -60 

2860 IF INKEY(O0)=0 THEN w%=w%+1 2960 LOCATER1,3,8:PRINTH1,USING"RHRRH.HRR"5q%/pixxunitelx3w%/pixyunitely 
2870 IF INKEY(2)=0 THEN w%=w%-1 2970 GOTO 2850 

2880 IF INKEY(8)=0 THEN q%=q%-1 2980 elx=q%/pixxunitelx:ely=w%/pixyurnitel, 

2890 IF INKEY(1)=0 THEN q%=q%+1 2990 egx=80/pixxunitelx:egy=60/pixyunitel,) 

2900 IF INKEY(9)=0 THEN GOTO 2980 3000 ampli=1:GOTO 180 

2910 IF INKEY(9)=128 THEN GOTO 500 3010 REM 

2920 q%=q% MOD 321:w%=w% MOD 241 3020 9RE Masa A A 


2930 IF q%<0 THEN q%=319 3030 REM 


IMDIATLA. . 


Cursillos Intensivos de 15 horas 
(Tres horas diarias durante una semana! 


Código Máquina 
Es) 


Diploma 
Otorgado a: 
por su asistencia al curso de: 
CODIGO MAQUINA 


El Duector 


Al final del cursillo se impartirá diploma de 
asistencia al mismo. 


Los cursillos se impartirán en ordenadores 


AMSTRAD y MSX 


Comienzo el 8 de septiembre. 
Grupos limitados de 14 personas como máximo. 
Horarios de clases de 4 a 7 y de 7 a 10. 


Precio del CUrSO ......o.oooocooccccccoooo 6.300 
Para subscriptores de la revista .....5.950 


Abierto plazo de inscripción. 


Información e inscripción, Tel. (91) 276 13 60 


4 
5 
E 


Soy suscriptor de la  Í 
revista | 
AMSTRADMANIA y 1 
deseo hacerme ¿ 
socio del «club», E 
para lo cual ruego | 
me sea enviado el ¡ 

i 


il 

¡ 

¿ 

| 

' 

! 
A carnet. 
: 


=] 
¿ 
e ! 
> DITOCCIÓN escorias po 
ba NP uc WEN 
Localidad ci nn... D.P e 


TOLÉRONMO cio... Provincia 


SENIOR 


CONCENTRACION 


Es un sencillo juego en el que pone 
a prueba su capacidad de 
concentración. 


Puede elegir entre dos juegos. Si 
quiere jugar solo, pruebe con el 1. 
El ordenador le irá dando una 
secuencia de luces y sonidos cada 
vez más larga. Lo único que tiene 
que hacer es repetir la misma 
secuencia sin equivocarse. ¿Parece 
fácil, verdad?; pues ya verá cuando 
lleve unos cuantos... 


Si quiere jugar con varios 
compañeros, elija el juego 2. El 
primero en jugar dará una nota, el 
segundo tendrá que dar a esa 
misma, y a otra, el siguiente 
jugador, esas dos y otra más, y así 
hasta que alguien falle. 


Para dar las notas, utilice las cuatro 
teclas del cursor, que corresponden 
con las cuatro ventanas de la 
pantalla. 
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raa 
168 
170 
199 
ja 

38 
134 


MODE 2 
BORDER 1 

IHk 0,19 

INK 1,1 

INK 2.6,11 
SPEED INK 24,20 
LOCATE 17.3 
PRINT"P RUEBA TU CONCENTRACION" 
LOCATE 16.4 

PRINT STRINGS 49,154> 

LOCATE 28,253 

PRINT" Alejandro Gonzalez "5 

WINDON £0,5,76,6.24 

PRINT:PRIMT" * El juedo 1 *s el mas sencillo." 

PRINT:PRINT" Cada color tiene asignado un sonido.El ordenador te ira dando 
se- cuencia de sonidos y colores cada vez mas la 

PRINT:PRINT" Tu tendras JIUe repetirla sin equivocarte," 
PRINT:PRINT:PRINT" * El iueso 2 es Para varios Ju3adores." 
PRINT:PRIHT" El dusador 1 dara el Primer color,El 2 tendra Yue dar 231 que d 
el l.y a otro Yue el elija,El siguiente jugador, 
sos dos colores y 23 otro," 

PRINT" Y asi sucesivamente.” 

SOWND 7,350,20,15 

LOCATE 21,18 

PRIMNT"F UL SA LAA TECLA" 
3%=INKEYS 

IF a%="" THEN 236 

ENY 1,1,0,54.12,-1.16 

ENT 1,1,0,24,30,1400,5 

MODE 4 

FOR c=0 TO 6 

INK 2,0 

HEXT 

BORDER 4 

WINCON £0,2,13,4.24 

PAPER £0.6:0LS 

WINDOW £0,1,20,1.3 

PAPER £0.M:PEN £0,5 

WINCON £1,8,13,5,12 

PAPER £1.,1:CL5 £1 

WINDOW £2,135,18,9,19 

PAPER £2,2:0L5 £2 

WINDOW £3,8,13,16,23 

PAPER £3.3:CL5 £3 

WINCON £4,3,6,9,19 

PAPER £4,4:0LS £4 

MINDON £3,9,12,14,14 

PAPER £5,6:PEHN £35,4 

RESTORE 534 

FOR z=1 TO 2 

READ ab) e. Br FA do 

MOVE a.b 

DRAWR cd, 

DRAWR ef, a 

DRAWR 23,4 

DRAWR i,.B 

HEXT ; 

DATA 63,25,139.9,4.172.-130,4,4,-1728 
DATA 447.25, 139,4,8,178,-134,4,4,-172 
DATA 223, 247,194.,8,4,130,-194,0,54,-130 
DATA 223.21.194,9,6,130,-194,0.4,-13(4 
DATA 25965, 236,69,43,69, “43, -£44,:32,-69.-32 
DATA 423.244, 48, -54, -48, -54,32,54,-232, 59 
DATA 236.112.64,-48,64,48,-£4,-32,-64, 32 
DATA 144.240. -45.-34, 489, -34,-32,04.32, 04 
DATA 246,174,144.4,4,25,-144,0,4,-28 


C(4)=1 
INK 1,12 


pagos 


MD 
as al 1 IA 


Podboaica 


A A A 


a o a 


dicd 


AIF ril DR ri 
A PRINTES LISIMO "E Ef Cira 


THE 
THE 3 
THE: 

THE. : 


LOCATE 

PRINT"Elide ATT 
PRINTES." pl 
EIA E 

a IE E] 

IF dir1 AND diz TT 
A LOCATE 2.2 

A PRINT" Rabidez? Clnuzo 


li 


a rá=INEEVA 


rALLrb 
THEH 3dks 


IDO MT) 

THE LE 

DN dá GOTO 210,134 
na=K 

“=1 


LOCATE 1.2 


40 PRINT SPC "ATENTO 10" SPO Cs 


PRIHTES 

FOR t=1 TO 1a0+344r 
HET 

Do A TO ARA 


3990 FOR a=1 TO x 


IAK Ca Ca 1 
A SOUND FO a 4120-70, 16tr, 15 
A FOR t=1 TO 106%tr 
1 HEAT 
THE Das. Lo a 
4 FOR t=1 TO 204r 


A HEAT 


HET 
4 FOR t=1 TO Gr 
HET 
A c=] 
LOCATE E,2 
PEINT"TE TORA 11 0% 
t=* 
PRIMTES,)LUISIHG "ELE Vi 10 
IF IHKEV 01 THEN 1 GOTO 1234 
IF IMKEYE 101 THEN Je cc BOT 1234 
IF IHKEVE 2021 THEN IN E) 
IF IHKEYC 2 1 THEN ad GOTO 123 
t=t+1 
PRINTES USIHG "ELE iretccóA 
IF ¿Akr-t=4 THEH 1320 
GOTO 1156 
TE Mrs THEN 1324 
A THK (Kad E 010413 
A SOUND FOCA 1.15 
FOR t=1 TO 126kr 
HEXT 
THE IO E e 
dl mal 
A IF naóx THEM naz=x 
IF Mis THEM 236 ELSE 1136 
LOCATE +2 
PRIMT" FALLASTE 0 y 
SOLD 7.1200, 1534, 15,1.1 
ERASE ll 
ERASE ol 
FERR t=1 TO 16046 
HE+T 
4 SQUARE 7 
LOCATE Za 
PRINT"Ha 


35, 
sa 
E 


Ss conseanddo "ina 


Zo 


14,344 
140301 
1446 
1454 
14d 
14% 
14d 
19090 
15514 
q 314 


(Fina 00 THEN a OA 
HAHN na311 THEN a$="Ho esta mal" 
14 ANO nazl6 THEH a$=" BIEN ... " 
a o AHD naz2ld THEH a$="HMLIY BIEN 11% 
IF nac THEN aS="MRESTRO 111010 
Fr 4 1 TU ea 
HEAT 
LOCATE uz 
FETHT SPCOLP 
LOLATE Mz 
FEIHT a$ 


SOUND 7 12 Ana 


a FOR t=1 TO ena 


Ca 


É ES 
aja PRINT"Judadore ez Tay 


El Locare 
A PRIMT O: 


0d is e 
a THEN 15% 


3 duaador ti SOS 
NS] 


A om=1 
a LOCATE. STE 


14 BORDER 13 
CI THE 4.13 
4 EDRDER 14 
THE 0.4 
A HET 


cama 1 dasrrnd 


THEN 4 
LOCATE 13,2 


770 PRIMT di 
A pr=él 


Adal PRINTES: USING EEE CA 
: aves , 


tal 


Mirad GOTO 13884 
eL 

GOTO 1230 
ETT GATO 1380 


n PRINTES LISING MEL EEM ete 2as 


LA BOUND 7.1 
A FOR t=1 TO 12tr 


rt=6 THEN 13924 ELSE 12814 
=4 AND +1 0=4 THEN CI e 1 
¿o THEN 1344 
CT 
242, kr. 15 


34 HET 

AA TRE A e 
234 1 ml THEN 15 
A im] 

AA GATO 1 00 

34 LOCATE 


1590 PRINT" FALLASTE 


poo 
RA, 154,15 


FOR t=1 TO LE 


a MET 
a LOCATE 5,2 


) FRINT"EL 


uaador tido 
SLUMD 024, 26,15% 
: t=1 TO 1566 


1 MERT 
A LOCATE 2,2 


IS Leo de 


7 GOTO PA 


El juego de los cuadrados es 
bastante antiguo, pero no por eso 
menos entretenido. 


Básicamente consiste en ordenar los 
números que aparezcan en el 
cuadrado grande, de izquierda a 
derecha, y de arriba a abajo. Para 
que pueda mover los cuadraditos 
pequeños, tendrá siempre un 
cuadradito vacío, donde podrá poner 
el número que quiera de los que 
están a su alrededor. Para «mover» 


aha 
we lalSlaln 7 8 0/7 


FUERTE 
j | 


CUADRADOS 


el espacio vacío puede utilizar las 
teclas de cursor o un joystick (si 
tiene claro). 


Puede elegir entre cinco tamaños y 
entre cinco niveles. Si elige un 
cuadrado de lado 4, tendrá que 
ordenar los números del 1 al 15; si 
lo elige de lado 5, del 1 al 24; y 
así hasta el de lado 8, donde tendrá 
que ordenar los números del 1 al 
63. Del nivel que elija depende el 
«grado de descolocación» de los 
números. En el nivel 1 los números 
no estarán muy descolocados; en el 
2 lo estarán un poco más, y así 
hasta el 5. Cuanto más altos sean 


el lado y el nivel, más tardará el 
programa en colocar los cuadraditos, 
así que para empezar pruebe con 
lado 4 y nivel 1. 


Quizás en algón momento le 
parezca que no hay solución, pero 
le aseguramos que siempre es 
posible ordenar los números. Si aún 
sabiendo que hay solución decide 
comenzar una nueva partida, pulse 
la barra espaciadora. 


Tendrá también un reloj en la 
pantalla, donde podrá observar 
cómodamente sus progresos en este 


juego. Ls 


DES 
ENT 1.1.04.3,.16,-5.2 
EN Y 1,1.0.20,4,1.% 
SYMBOL AFTER 134 
56 SYREGL 131,255 
1 SI MBOL 133,125, 125 
A SYMBOL 135,255, 128, 
SYMNEOL 13%,1.1,1.1. 
SIMEOL 139,253. 1.1. 
S MEL 14, EN a... 
SYMBOL 141.125.125 
SYMBOL 142,1.1.1.1.1 
kaBb=L HRS 135 AC HRRL 
beb=CHR$ 191 + HR3c 1 
MODE 1 
BREDER 11 
THE 4,11 
THE l. 11 
THE 2,11 
FEHN 1 
LOCATE 16,2 
PRINT"ELADRADOS" 
234 LOCATE 13,3 
A PRIMT STRIHNG$ 11.154 
A LOCATE 12,25 
PRIHNT" Alejandra Gonzalez " 
PE 2 
LOCATE 14,5% 
FRINT"Solo tienez Ue ordenar los" 
4 LOCATE 3.7 
7 PRINT numeros de izduvjerda a derecha Y" 
324 LOCATE 5,2 
ii PRINT"de arriba a abajo," 
3 LOCATE 16,11 
PRINT"Euando INieras comenzar na" 
A LOCATE 5.13 
FRIMT"nuewa Partida . Pulsa la barra" 
LOCATE 5.15 
FRriHT"espbaciadora,”" 
EORCER 11 
A THE (4, e 
IHK 1, 
Aa IHkK 2 
THE 3, é 
534 PEN 2 
A LOCATE 7,19 
PRINT"Lado del cuadrado 4-3) 7" 
SOUND 7,56,34,15 
l$6=IHNKEYÍ 
SALE 10 
IF 14 OR 15% THEH 4964 
IN A 
x=1 
FOR 4=1 TO 1 
FOR i=1 TO 1 
Aci) ima 
x=x+1 
HET 
HEAT 


NS e PEO 


FU 
o 


JR 131 CAR 1as> 
¿1400+CHRS 1d 


sñio 


A A SS, 


TSE 


A er El 
an 
“a 


A O ATAR RAR A 


Allo ls 
31 
ti=1 
LOCATE ozi 
PRINT"Hivel de dificultad ¿1-53 70 
SOUND FLA. Só, 15 
n= INEETS 
n=WAL Condo 
TF nl OR n:3 THEH E 
EORCER 1 
FOR c=á TO A 
THE «1 
HE; T 
LS 
PAFER £4. 2: CL: PAPER 6, El 
MITAD) E 232 LAR 1 IRTE A LIZ IATA 1204341 
WIRE fl.1. 7 2 
FAPER £1.4:ELS £l 
RANDOMNTZE TIME 
FRE :=1 TO 2441 
1=14+ 1H T0 44 RHD O 
GOSUE 15693 
IF s=1 THEN 24: IÓTO End 
SOLID 2 ABEL 1 
HNEWT 
m4 
A FR d=1 TO 1 
A FOR del TO 1 
4 1F Ad THEH 370 
3 FEH 2 
4 LOLATE di AA 
PRINT STRING 4,143 
LOCATE 4413. 1 
24 PEINT STRING 4, 143%) 
A LOCATE Aid 
PRIMT STRING 4d, 1d 
GOTO 11115 
A PEH a 
LOCATE Hi A 
PRINT Easb 
AC LOCATE 4ki3. 4 
FRIHT bb 
¿4 PEN 1 
AC LOCATE di. im] 
” PRINT MSTHS “ERC Ad a 
FEH : 
LOCATE dhicd, dirml 
PRIMT CHE 13 
LOCATE di de 
FEIHT CHRsd 13 
HET 
HET 
FEH £1l.1 
PERINTE1. HRS 150 STR IAH E 1940 CARS 156 
PRINTEL) DARA 140 SP PO CARA 1430 
PERINTE1.) ECHES 1d TE IAS 154 0 CHAR 153 
FEH £1,3 
ENDRDER 13 
THE 2d 
ÍHMkE 1.1 


DR DDN 
A o O CU CO CO CUCUTA 


ES 


AS 


90 00 da y 4 Ti Sid jo ll RA 
E 


2 Pú 1 e CO 
MA AAA A 


¿Qn E 


a 
E 
ha 
bed 


o e ps pl po II 
O SO RU A 


Rp pl po e le ld ps pl 
A A AA A II A 


12 44r4 
1214 
12:20 
12:34 
1244 
1254 
1264 
1274 
12:34 
12394 
1346 
1314 


' 


Pe A e pe pe e 
La Ud La a Lai Lal al 


IHk 2.18 

IHKE 3,6 

SOUND 7,104,44,13 

A 

IF THREE 47] THEN 12324 

MODE 1 

ERASE A 

GTO 4En 

IE IRREAL Bd THEN 13 
IF IHKEVM 31 OR O Ad TREN m=2 
IE IHKE YC 21 OR JO A 2 THEN 10=1 
TF THREE dad OR IO ua THEN mb 
aaa, AS 

IF sea THEH 1378 

dnd 11 

seais 

SOLUHO 7,304,324, 15 

LOCATE £l.2.2 

FEINT £1.USITHG "££" mir 


PRINT El USING "££"i INTO) 

IF ms=6 THEH 124í 

GASUE 16394 

IF 2%51 THEH 1464 

SOUND 7, 1264m. 14, 14.. .1+2km-1) 
GOTO 1474 

SOUND 7,1254. 44,11.1.1 

la] 

FEN 3 


A LOCATE 4ta2) 342 


PRIMT STRINGA, 4.143 


a LOCATE 4423, 324kb1 


1524 
15:34 
1544 
1550 
1554 
1570 
155 
1594 
15d 
1614 
164 
16:34 
1544 
15854 
1560 
1674 
1654 
15590 
176 
1715 
1724 
1730 
174 
1734 
1754 
177 
17534 


PEIHT STRING 4.143) 

LOCATE 44ta=3, tk 

PEINT STRING 4,1430 

LOUCATE. 44 a-za 3 A al ma 

PRIMT bas 

LOCATE dEl a—za 3 E a 

FRINT Eldot; 

PEH 1 

LOGATE caza 2 4 bb 1 

FPRIHT USTHS "Ef"; Aarza bado 

PEH 2 ; 

LOCATE dí ama 3 EL ab 1 

FRINT HR 1330 

LOCATE 44% ama 0.34 bak 1 

PRIHT CHRE 1335 

rs=k3 

GOTO 12460 

3305 944m 

sk=S 1H 94m 3 

IF atza5l OR a+t23%21 THEN sesaseg+áa, 15:35 
IF b+ek1 0 b+ak2%1 THEN se9a=se9+4.,13:2 
Aa. bos AL atra total 

Alatsas baka 4 

ASAtrZA 

b=lb+=ki 

A 


RETLIFA 


¿RETURA 
¿RETURN 


> JUEGOS; 


EL PENSADOR lll 


El objetivo de este programa es 
hacerle pasar un rato entretenido y 
a la vez que repasar su cultura; le 
ayudará a ejercitar la memoria. 


El juego consiste en una serie de 
preguntas tipo test, donde se darán 
tres soluciones, pero una sola 
correcta. 


Dado que las preguntas pueden 
ser interminables, daremos a este 
juego tratamiento de sección fija, 
dedicándose cada mes a una 
materia diferente. 


El juego está pensado para que 
puedan participar varios jugadores 
con diferente grado de cultura y 
edad, por lo que las preguntas irán 
elaboradas con diferentes niveles 
de dificultad. 


¡Consigue ser el pensador! 
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M SARBESIO REM_= 

20 "REM == EL FENSANIOR-1 
30 REM FAZ CERRILLO 
40 REM = = 
50 GOSUB 880 :” 
60 GOSUB 820: * 
70 CLS 


A 1,10 
dd RINT " 
100 FRINT 
110 PRINT 
120 FRINT " 
130 FPRINT 
140 FRINT " 
1 NoarPreguntas=47 
1 DIM preguntas+ (NnrFreguntas,4) , respuesta (NmrFreguntas) ,HaSalido(NmrFreguntas 
) 
170 REM leer preguntas y respuestas 
180 FOR i=1 TO NmrFreguntas 
190 READ preguntas+(i,1) 
200 READ preguntast(i,2) 
5. ) READ preguntas$(i,3) 
2 READ preguntas+ (1,4) 
230 READ respuesta(i) 
240 HaSalido(1)=0 
250 NEXT i 
260 PRINT:PRINT:FRINT 
270 INFUT " COMO TE LLAMAS" ¡nombre+ 
E e e (LEFTS (nombre+,1))+LOWER$ (MIOS (nombre+,2,10)) 
2 n=0 ; ” inicializar el contador de preguntas que han salido 
300 acertadas = 0 
310 REM sacar una pregunta al azar 
320 IF n MOD NmrPreguntas =0 THEN 
330 n=n+1 
340 RANDIOMIZE TIME 
3 =INT (RNOINmrFreguntas)+1 
0 IF HaSalido(p)=1 THEN 350 
ELSE HaSalido(p)=1 
370 GOSUB 650: ” ir a presentar pregunta 
380 PRINT:PRINT:FRINT 
390 PRINT " CUAL ES LA RESPUESTA, "¿nombres?" 
400 LOCATE 5,24 
PRINT "ok PULSA ¿0 FARA ACABAR x*xxkxxk " 
ab=INKEYS$:IF at="" THEN 420 
IF as="0" THEN CLS:GOTO 940 
440 a+f=UPPER$ (at) 
450 IF a$<>"A" AND af<>"E" AND a$<>"C" THEN LOCATE 1,1:FRINT CHR$(7) ¿CHR$(7) ¿GOT 
O 420 
460 r=ASC(as)-64: ' 
470 REM 
p. JAS presentar respuesta 
490 REM 
500 MODE O 
510 INK 1,1 
520 CLS 
530 LOCATE 1,10 
540 IF rivrespuesta(p) THEN INE 0,24:FRINT" 
OÚRYOCADO" ¿GOTO 590 
5 acertadas=acertadas + 1 
560 INK 0,26,1 
570 SPEED INK 10,10 
580 PRINT" MUY BIEN! '":¿PRINT:FRINT" 
590 FOR espera=1 TO 1500: NEXT espera 
600 GOSUR 820: ' ir a reestablecer los colores iniciales 
6 GOTO 320: * otra pregunta 
62 REM 
630 REM presentar pregunta 
640 REM 
650 CLS 
660 PRINT:PRINT:FRINT:¿FRINT 
670 PRINT preguntast(p,1) 
680) PRINT:PRINT:FRINT:PRINT 
6 PRINT " a.-"3 preguntast(p,2) 
700 FRINT 
710 FRINT " 
720 FRINT 
730 PRINT " c.-"3 preguntast(p,4) 
740 PRINT:¿PRINT:FRINT 
7d, RETURN 
7 REM 
770 FOR i=1 TO NmrFreguntas 
780 HaSalido(i)=0 
790 NEXT i 
800 RETURN 
810 REM colores 
8 MODE 1 
ed) BORIER O 
840 FEN O 
850 PAPER 1 
860 INK O,t: 
870 RETURN 
880 REM 
-:Ó REM definicion de los caracteres 1 y ) 


por 


definicion de los caracteres ] y ) 
ir a establecer colores 


EL PENSADOR” 


(el juego de las preguntas 


y respuestas)" 


GOSUB 770 


asc("A")=65; asc("B")=b66:asc("0")=67 


DOOHHH!!!!"SPRINT:FRINT" TE HAS E 


HAS ACERTADO" 


b.-"¡ preguntast(p,3) 


INK 1,24 


be YMBOL AFTER 16 

910% SYMBOL 93,60,0,216,102,102,102,102,0 

920 SYMBOL 125,216,230,246,222,206,198,198,0 
930 RETURN 

940 REM fin 

9530 CLS 

960 LOCATE 5,S5:FRINT "has acertado"; acertadas; "respuestas de "¿n 
raltanto =INT— ( acertadasx100 / n ) , 

981 IF tanto <25 THEN LOCATE 10,10:FRINT' "TIENES QUE ESTUDIAR MAS" 

982 IF (tanto >= 25) AND (TANTO<“S0) THEN LOCATE 10,10:FRINT "NO ESTA MAL" 
983 IF (TANTO >= 50) AND (TANTO < 7%) THEN LOCATE 10,10:FRINT "ESTA EIEN" 
984 IF (TANTO >= 75) THEN LOCATE 10,10:PRINT "MUY BIEN" 


1020 DATA " CUAL DE ESTAS OBRAS ES MAS ANTIGUA?","'POEMA DEL MIO CID“",""AUTO DE 
LOS REYES MAGOS'","'“CANCION DE ROLDIAN'",3 

1030 DATA " EL POEMA MAS FAMOSO [MIE Jorge Manrique 
21, ,"/COPLAS A LA MUERTE DE MI PADRE”",""LA CELESTINA 
2,2 

1 DATA " 
[o] ESTE DE 
1050 DATA " 
OS OTROS 


ES","'EL LIBRO DEL BUEN AMOR 


“La Celestina” FUE ESCRITA FOR","FERNANDO ME ROJAS","ES ANONIMO" ,"AR 
HITA",1 

CUAL DE ESTOS ESCRITORES PERTENECE A 
DOS?" ."GARPTIASO"."FRAY LUIS DE LEON",“M 


UNA EFOCA DISTINTA A LA [E L 


1040 DATA " 'La Celestina” FUE ESCRITA FOR","FERNANDO ME ROJAS","ES ANONIMO" O, 
CIFRESTE DE HITA",1 
1050 DATA " CUAL DIE ESTOS ESCRITORES FERTENECE A 
OS OTROS DOS?" , "GARCILASO" "FRAY LUIS DE LEON",."M 
ARQUES DE SANTILLANA",3 
1060 DATA " 'Amadis de Gaula” uy “El Lazarillo de 
MOS. SARES A NMUF EPOCA PERTENECEN?", "RENACIMIENTO", 
"BARROCO ', "EDAD MEDIA",1 
1070 DATA " DUIEN ESCRIBIO 'Fersiles u Segismundo'”","CALDIERON [IE LA BARCA" ,"LOF 
A", "CERVANTES" ,3 
ToBo DATA Ñ auna, ES UN FAMOSO IRAMA DE","QUEVENO", "GONGORA","LOFE DE 
VEGA" ,3 
1090 DATA " UNO 
PU, "“EL ALCALDE 
EL RUSCON'",2 
1100 DATA " "La 
1090 DATA " LINO 
2," "El ALCALIOE 
EL RUSCON'",2 
1106 DATA " "La vida es suelo” 
VEGA" ,"GONGORA",1 
1110 DATA " CUAL DE ESTOS TRES ESCRITORES DEL SIGLO XVI NO ESTA RELACIONADO 
LOS OTROS DOS?","STA TERESA DE JESUS", "GARCILASO", , 
"SAN JUAN DE LA CRUZ",2 
1120 DATA " “Don Alvaro o la fuerza del sino” 
ISTA" ,"NEOCLASICA","ROMANTICA" ,3 
1130 DATA " Hartzenbuch ESCRIRIO ","'LOS AMANTES DE 
VENECIA '","'A RUEN JUEZ, MEJOR TESTIGO'",1 
1140 DATA " EL RENACIMIENTO LITERARIO ESFAJOL COM- 
0,1 
1150 DATA " CERVANTES, LOFE DE VEGA, CALDERON, 
SCRITORES", "REALISTAS", "ROMANTICOS", "BARROCOS" ,3 
1160 DATA " Mariano de Larra DESTACO FRINCIFALMENTE 
TICOS","SUS FOEMAS" ,"SUS NOVELAS" ,1 
1170 DATA " CUAL ME LOS SIGUIENTES ESCRITORES ESFA- JOLES FUE UN ESCRITOR ROMANT 
ICO?" ,"JORGE MANRIQUE", "ESFPRONCECIA" , "MORATIN",2 ' 
1180 DATA " “Don Juan Tenorio” FUE ESCRITO FOR","ZORRILLA" ,"ESFPRONCEDA", "ERE 
TIE LOS HERREROS" ,1 
1190 DATA " 'El Estudiante de Salamanca”, DE 
", "UNA OERA TEATRAL","UN FOEMA NARRATIVO" ,3 
1200 DATA " Becquer, CUYAS OBRAS MAS IMFORTANTES 
uendas” FUE UN ESCRITOR" ,"ROMANTICO","REALISTA", 
"DE LA GENERACION DEL 98",1 
1210 DATA " CUAL DE ESTOS ESCRITORES ROMANTICOS 
U OBRA EN GALLEGO O SOBRE TEMAS RELACIONADOS CON 
GAL.ICIA?","ESPRONCEDA","ROSALIA DE CASTRO", "BECQUER",2 
220 MATA " Fernan Caballero ERA EL FSEUDONIMO DE","CECILIA BOHL DE FABER","FIO 
BAROJA","LEOFOLDIO ALAS",1 
1230 DATA " Vicente Elaco Ibalez ESCRIEIO SU OERA 
" "MALLORCA", "ANDALUCIA", "VALENCIA" ,3 
1240 DATA " DE LOS DOS MOVIMIENTOS ESTILISTICOS 
AMOS culte- ranismo Y conceptismo SON SUS FPRINCI- 
FALES REPRESENTANTES, RESFECTIVAMENTE","GONGORA Y QUEVEDO", "QUEVEDO Y GONGORA"," 
NINGUNO" ,1 
1250 DATA " EL CREADOR DE LA COMEDIA ESFAJOLA FUE", "CALMERON","LOFE DE VEGA" ,"TI 
RSO DE MOLINA",2 
1260 DATA " LA FAMOSA NOVELA FICARESCA 
y "QUEVECIO","ES ANONIMA" ,2 
1270 DATA " LA Real Academia Espalola SE CONSTITUYE A FARTIR DE UN GRUFO MIE INTE 
LECTUALES Y DECLARADA OFICIAL FOR FELIFE V EN El 
SIGLO", "XVII","XVIII","XIX",2 
1280 DATA " LA COMEDIA MAS IMFORTANTE DE Fernandez 
S NIJAS'","'TION ALVARO O LA FUERZA MEL SINO”",""EL C 
OMENCIADIOR ME OCAJA'",1 (o) 
1290 DATA " Figaro FUE EL PSEUDONIMO DE ","LARRA","ESPRONCEDA","GONGORA" ,1 
1300 DATA " QUIEN ESCRIBIO EL CELEBRE POEMA “La Cancion del Firata'?","E 
ECQUER", "ESPRONCEDIA","ZORRILLA",2 
1310 DATA " 'Fepita Jimenez” ES UNA FAMOSA NOVELA 
S","PEREDA",1 
1320 DATA " “Tormento” ,'Fortunata y Jacinta”, 'Miau”,etc SON ALGUNAS DE LA 
S NOVELAS QUE CONSTITUYEN LAS LLAMADAS “Novelas 
contemporaneas Espalolas” DE" ,"VALLE-INCLAN","PEREZ GALIDIOS"” ,"UNAMUNO" ,2 (8) 
1330 DATA " AL REALISMO ESFAJOL FERTENECE","FEREZ GALDOS","VALLE-INCLAN” , "ANTONI 
O MACHAIIO",1 
1340 DATA " 'La Regenta”, DE CLARIN, DISCURRE EN" ,"OVIEDO","SANTANDER","BILEAO", 


UNA EFOCA DISTINTA A LA [E L 


Tormes” SON [MIOS LIBROS ANONI 


DE ESTOS LIBROS NO ESTA RELACIONADO CON LOS OTROS. SABES CUAL ES 


DE ZALAMEA/"."“EL CONTE LUCANOR","” a 
vida es suelo” FUE ESCRITA FOR","CALDERON DIE LA EARCA","LOFE DE 
DE ESTOS LIEROS NO ESTA RELACIONADO CON LOS OTROS. SABES CUAL ES 
DE ZALAMEA!",""“EL CONDE LUCANOR'","” 


FUE ESCRITA FOR","CALMERON DE LA BARCA","LOFE [E 


ES UNA DERA TEATRAL." ,"RENACENT 


TERUEL /","/LA CONJURACION DE 
PRENDE EL si6LO"."xvI"."Ú 
GONGORA, QUEVEMO, ETC, SON E 


FOR","SUS ARTICULOS FERIODIS 


ESFRONCEDIA, ES ","UNA NOVELA 


FUERON SUS 'Rimas' Y SUS 'Le 


ESCRIBIO LA MAYOR FARTE 9. 


SOBRE TEMAS RELACIONACNOS CON 


FPRINCIFALES MIEL BARROCO S, 


El Buscon” FUE ESCRITA FOR: $"EERVANE)" 


de Moratin ES","'EL SI DE LA 


DE", "VALERA", "FALACIO VALIE 


1 

1350 DATA " EL MAXIMO REPRESENTANTE DEL MODERNISMO ES"."MIGUEL HERNANDEZ","J.R. 

JIMENEZ" ,"RUBEN LARIO",3 

1360 [IATA " CUAL FUE LA CIUNAD NATAL DE J.R. 

"LANJARON (GRANADA) ", "BAEZA (JAEN) ",1 

1370 DATA " LA Generacion del 98 LA FORMAN ","UNAMUNO,AZORIN,MACHALCIO ,LORCA,ETC", 

"BENAVENTE ,BAROJA MACHADO, ETC" , "NINGUNA ES CORRECTA 

"1 

1380 DATA " A QUE FSEUNONIMO RESFONDIA Jose 

ARIN","FIGARO",1 

1390 DATA " CUAL DE ESTAS CELEBRES OBRAS DE UNAMUNO NO ES NOVELA","'LA TIA y 

","/NIEBLA/","'"EL OTRO!",3 

1400 DATA " QUIEN ESCRIBIO 'La Busca'?","BAROJA","CELA","AZORIN",1 

1410 DATA " “Luces de Bohemia”, DE VALLE-INCLAN, ES" ,"TEATRO ESPERPENTICO","N 

OVELA","COMEDIA",1 

1420 DATA " ANTONIO MACHADO DESTACO COMO" ,"FOETA","NOVELISTA","DRAMATURGO",1 

1430 DATA " CUAL DE ESTOS POETAS NO FPERTENECIO A LA Generacion del 277"," 2 

IA LORCA","MIGUEL HERNANDEZ" ,"ANTONIO MACHALIO" ,3 [] 

1440 DATA " "Marinero en Tierra” ES DE ","MIGUEL HERNANDEZ","RAFAEL ALBERTI","GA 

RCIA LORCA",2 

1450 DATA " CUAL DE ESTOS FAMOSOS FOEMAS NO ESTA 

"'“NANAS DE LA CEBOLLA'",""ELEGIA A RAMON SIJE'","'*RO 

MANCE DE LA FENA NEGRA'",3 

1460 DATA " ANTONIO BUERO VALLEJO DESTACA COMO a a Y 

" ; 
I 


JIMENEZ?" , "MOGUER nuev) , 


Martinez Ruiz?" ,"AZORIN","CL 


RELACIONADO CON LOS OTROS?", 


, 
1470 DATA " CUAL DE ESTAS NOVELAS NO ES C.J.CELA?","'LA COLMENA”",""LA FAMIL 
E PASCUAL DUARTE '","'"EL CAMINO'",3 
1480 DATA " QUE OBRA NO ESTA RELACIONADA CON LAS 
RIO'","'“HISTORIA DE UNA ESCALERA'","“EL CAMINO*",2 


D 


OTRAS?","'CINCO HORAS CON MA 


Al comenzar a ejecutarse el 
programa le aparecerá una pantalla 
con la cantidad de barcos 
existentes. Una vez pasada esta 
pantalla el ordenador le comunicará 
que coloque sus barcos, estos no 
deben sobrepasar el número y tipo 
de barcos que se indicó en la 
pantalla anterior. Puede desplazarse 
a las coordenadas deseadas 
mediante las teclas del cursor y una 
vez que haya seleccionado dichas 
coordenadas pulse la tecla 
<COPY> y le aparecerá un «1», 
indicando la presencia de una 
posición de su barco, cuando haya 
terminado de colocar su barco, sea 
de las posiciones que sea, se lo 
tiene que comunicar al ordenador, 
pulsando la tecla <ENTER> y éste 
le comunicará «barco computado», 
si la operación se ha llevado a cabo 
correctamente, en caso contrario le 
irá comunicando el tipo de error que 
ha cometido. 


El ordenador no le permitirá colocar 
barcos juntos, ni tampoco un barco 
que ocupe posiciones separadas o 

en diagonal. 
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La forma de colocar estos barcos es 
igual que en el ya tradicional juego 
de los barcos, al que todos 
sabemos jugar. 


Una vez terminada la colocación de 
los barcos el juego se pone en 
marcha y debido al azar le tocará al 
ordenador O a usted jugar y esto se 
refleja en pantalla, si le toca jugar a 
usted puede seleccionar las 
coordenadas por medio de las teclas 
del cursor y una vez seleccionadas 
se pulsa la tecla <COPY> 
respondiendo el ordenador de lo 
sucedido. 


Si le toca al ordenador le dirá unas 
coordenadas y le pedirá la situación 
del disparo efectuado, esto será con 
una «A» O «AGUA», si no hay 
ningún barco en esas coordenadas, 
con una «T» o «TOCADO», si el 
barco ha sido acertado en alguna 
de sus posiciones, o con una «H» O 
«HUNDIDO», cuando ha sido tocado 


GOSUR 6000 :MONME 1 

FRINT TAR(9) "LA ARMADA CONTRATACA" 

PRINTO TAR (8) qUMORRIOIOPIOIOIBPRIOIORPRRIOIPRIBIOROE! 

FRINT:FRINT 

EPIA NUMERO MIE BARCOS EXISTENTES" :FRINT:FRINT:FRINT 
PRISA BARCO LE 4":FRINT 

FRINT " BARCOS [E 3":FRINT 

FRINT " BARCOS DE — 2":¿FRINT 

PRINTAL BARCOS DE 1":FRINT:FRINT:FRINT:FRINT:FRINT 
PRINT FULSA CUALQUIER TECLA FARA SEGUIR" 
af=INKEYF:1F aé="" THEN 553 

MODE 2 

SYMEOL AFTER 253:SYMBOL 233,0,0,0,0,0,0,126,0 


63 DIM barcos$(10,10) ,pantalla+ (10,10) ,aux+ (4) ,cuatro+(4) ,trest(2,3) ,dos+(3,2) 


yuno+ (4,1) ,tres% (2) ,dos% (3) ,unoZ (4) ,pasarZ (10) 


y no quedan más posiciones por 
acertar, seguidamente pulse la tecla 
<ENTER=, 


El juego está lo más protegido 
posible y si intenta engañar al 
ordenador verá la reacción de éste. 


Si en un momento dado antes de 
pulsar la tecla <ENTER> le 
apetece cambiar el sentido de su 
barco, lo puede conseguir intentando 
poner un barco de cinco posiciones 
y al darle una situación de error le 
desaparecerán las posiciones ya 
ocupadas y puede empezar a 
ponerlo de nuevo, también lo puede 
conseguir intentando poner un barco 
con huecos en medio. 


Después de haber tecleado 
<ENTER> y tener ya dispuestos 
algunos barcos puede conseguir 
borrarlos todos y comenzar de 
nuevo a introducir sus barcos 
pulsando la tecla <CLR>. 


FOR fila%=1 TO 4 
uno% (filaZ%)=0 
NEXT filaZ 
RETURN 
pres+="0012ESFERA UN MOMENTO" ¿GOSUR 3050 :tamZ%=4 
3 GOSUB 500 
O FOR k%=1 TO 4 
3 cuatros (k%)=aux+ (17%) 
NEXT KZ 
is GOSUR 780 
tam/=3 
S FOR kZ=1 TO 2 
GOSUR 500 
FOR 1%=1 TO 3 
50 — trest(k%,1%)=aux$ (1%) 


67 DIM mar* (10,10) ,uno1*+ (4,1) ,dos1+(3,2),tres1+(2,3) ,cuatro1* (1,4) :10n9g%=0:uno 5 


1%=0:d0s1/=0:tres1%=0:cuatrol1%=0 


intento%=0:cuatro%=0 
GOSUR 200:REM imicializacion 
GOSUR 300:REM colocar barquitos 


situz=14:GOSUE 1000:REM imprimir pantalla 
5 GOSUE 2000:REM inicializar 
00 GOSUE 20S50:REM colocar mis barquitos 
OS  GOSUB 4000:REM jugar la partida 
O CLS:ENb s 
200. FOR filaZ=1 TO 10 :¿ 
OS FOR colummaZ%=1 TO 10 
210. barcost(fila%,colummaZ)="":pantalla+(filal,colummal)="" 
3 NEXT colummazZ 
pasar (filaZ)=-1 
220 NEXT filaZ 
23. FOR fila%=1 TO 2 
235 tres%(filaz)=0 
O NEXT filaZ 
S FOR fila%=1 TO 3 
33 dos%(filaZ)=0 
O — NEXT filaZ 


dost+ (k%,1%)=aux+ (1%) 
3 NEXT 1% 

GOSUR 780 

NEXT +%Z 

tam/%=1 
Ss FOR kZ=1 TO 4 

GOSUR 500 


O RETURN 
contador%=0 

OS  RANDOMIZE TIME 
fila%=1+INT (RNDX10) 


515  columnmaZ=1+INT(RNDX10) 

520 IF barcost(fila%,columaZ)="" THEN barcos$ (filaZ,columnmaZ)="1":contadorZ=co 

ntadorZ+1 :aux+ (contadorZ)=STR+(filaZ -1)+STRE (column 

al -1):ELSE GOTO SO00 

525 GOSUB 700 

530 IF izq% OR derZ THEN auxZ%=colummaZ :ELSE aux%=filaZ 

540 WHILE contadorZ%“tam% 

545 IF izq% OR der% THEN SS50:ELSE GOTO 570 

5530 auxl=aux/+desplZ 

5355 IF aux ) OR auxZ%>=11 THEN GOSUB 740:1F fallo% THEN GOSUB 900:GOTO S00:ELS 

E GOTO 585 

560 IF barcost(filaZ,auxZ%)="" THEN barcost (f11la%,aux%)="1":contador%=contador%+ 

liaux$(contadorZ)=STR+ (filal -1)+STR$ (auxZ -1) :ELSE 

GOSUR 900:GOTO 500 

563 GOTO 585 

570 aux4=auxl4+desplZ 

575 IF auxZó=0 OR auxZ>=11 THEN GOSUR 760:1F fallo% THEN GOSUR 900:GOTO S00:ELS 

E GOTO 585 

580 IF barcost$(aux%,colummaZ)="" THEN barcost (au: 7 

adorZ%+1iaux$ (contadorZ)=STR$ (auxZ —1)+STR$(columnmazZ 

-1) :ELSE GOSUE 900:GOTO 500 

5835  WEND 

590 RETURN 

700. arriba%=0:abajo%=0:12q%4=0:der%=0 

703  azarZ=1+INT(RNDX12) 

710 IF azarZ:4 THEN izq4=-1 :despl1%=-1 

713 IF azar AND azarZ:7 THEN derZ%=-1:despl%=1 

720 IF azar%6 AND azarZ10 THEN arribaZ=-1:despl? 

725 IF azarZ9 AND azarZ:13 THEN abajo%=-1:despl%= 

730 RETURN 

740  fallo%=0:columa%=columma%-desp1% 

743 IF barcos$(filaZ,colummaZ)="" THEN barcos$(fila%,columnaZ)="1":contadorZ%=co 

ntador%+1 :aux$ (contador%)=STR$(filaZ -1)+STR$ (column 

az -1):ELSE fallo%=-1 

7335 RETURN 

760  fallo%=0:fila%=f1la%-despl% 

763 IF barcos$(f1la%,colummaz)="" THEN barcos$(fila%,colummaZ%)="1":contador%=c0 

ntador%+1 :aux+$ (contadorZ)=STR$ (fila% -1)+STR$ (column 

a% -1):ELSE fallo%=-1 

77% RETURN 

780 FOR 1%=1 TO tam% 

783 f1%4=VAL (MIDE (aux+ (1%) ,1,2))+1 :C0%4=VAL (MIDES (auxt(1%),3,2))+1 

800. aux%=co%-1 :aux1%=f1%-1:IF auxZ%0 AND au:1Z>0 THEN IF barcost$(aux1%,auxZ)="" 
THEN barcost (aux 1%,auxZ 

805 aux%=co%+1:auxl1%=fi1%4+1:1F aux1i%:211 AND auxZ%:11 THEN IF barcost(aux1%,aux%)= 
"" THEN barcos$ (auxl1%,auxZ)="." 

810 auxi%=fi%-1 :auxZ=co%+1:1F aux1i%:0 AND auxZ%“11 THEN IF barcos$(aux1% ,auxZ)=" 
" THEN barcos$ (aux1%,auxZ)=".," 

813. auxli%=fi%+1:aux%=co%-1:1F aux14%11 AND au:Z>0 THEN IF barcos$(aux1%,auxZ)=" 
" THEN barcost (aux1%,auxl)="." 

820 aux%=co%4-1:1F aux%+0 THEN 1F barcos$(fi%4,aux%)="" THEN barcos$(fi%,aux%)=". 


columnmaZ%)="1" :contadorZ=cont 


825 auxl%=c0%4+1:1F aux%:11 THEN IF barcost(f1%,aux%)="" THEN barcos$(fi1%,auxX)= 
830 auxl=f1%-1:IF aux%>0 THEN IF barcos*(aux%,co%)="" THEN barcos$ (auxZ,co%)=". 
835. aux%=f1%+1:1F auxZ%:11 THEN IF barcos$ (auxZ%,co%)="" THEN barcos$ (aux%,coZ)=" 


840 NEXT 1% 

845 RETURN 

900 FOR 1%=1 TO contador%z 
903 filal=VAL (MID$ (aux$ (1%) ,1,2))+1 :colummaZ%=VAL (MIOS (aux$ (1%) ,3,2))+1 

920 barcos$(fila%,colummaZ)="" 

923 NEXT 1% 

930 RETURN 

1000 LOCATE situZz,1 

1005 PRINT "1234567890 

1010 MOVE (situZ-4)x8,367 

1015 DRAW (situz+18)*8+3,367 

1020 MOVE (situZ-4)x8,359 

1025 DRAW (situz+18)x8+3,3539 

1030 yl=359 

1035 FOR fila%=1 TO 10 

1040 yl=y%4-32 

1045 MOVE (s1tuZ-4)XB,y% 

1050 DRAW (s1tuZ+18)Xx8+3,y% 

1055 NEXT fila 

1060 MOVE (situZ-2)x8,399 

1065 DRAW (situZ-2)*8,39 

1070 MOVE (situZ-2)x8+4,399 

1075 DRAW (situZ-2)x8+4,39 

1080 x%=(situZ-2)x8+4 

1085 FOR fila%=1 TO 10 

1090 x4=x%+16 

1095 MOVE x2,399 

1100 DRAW x%,39 

1105 NEXT filaz 

1110 FOR fila%=1 TO 10 

1115 LOCATE situZ-3,2+2xfilaZ:FRINT CHR$(64+f11la%) 

1120 NEXT filaz 

1125 IF situz=14 THEN situ=48:GOSUB 1000 

1130 RETURN 

1235 a$=INKEY+: IF as="" THEN 1235 

1240 IF ASCia+): 224 AND ASC(a+):< 240 AND ASC(a+)“:241 AND ASC(a+):<>241 AND ASC( 
a$).>242 AND ASC(a+): 243 THEN 1235 

1245 IF ASC(a+)=242 THEN colummaZ%=columnmaZ%-1:1F colummaZ>0 THEN x1%=filaZ:yl%=co 
lummaZ%+1 :GOSUB 1550:ELSE FRINT CHR*$(7) :columma%=1 

1250 IF ASC(a+)=243 THEN columma%=columnmaZ%+1:1F colummaZ:11 THEN x1%=filaZ:yl%=c 
olumnmaZ-1:GOSUR 1550:ELSE FPRINT CHR$(7) :; :colummaZ=10 

1255 IF ASC(a+$)=240 THEN fila%=f1laZ-1:1F filaZ>0 THEN x1%=filaZ+1:y1%=columaí : 
GOSUE 1550:ELSE FRINT CHR* (7) ila%=1 

1260 IF ASC(as)=241 THEN fila ila%+1:1F filaZ "11 THEN x*1%=$ila%-1:y1%=columaZ 
¿GOSUB 1550:ELSE FRINT CHR$(7 fila%=10 

1265 1F ASC(a+)=240 OR ASC(af)=241 OR ASC(a$)=242 OR ASC(a+)=243 THEN 1235 

1270 dir$=STR+(filaZ -1)+STR*(colummaZ -1) :intentoZ=intentoZ%+1 

1275 IF pantallas (filaZ,colummaZ)<>"" THEN GOSUB 1600:GOTO 1420 

1280 ta%=1 :encontradoZ%=0 

1285 WHILE taZ%¿5 AND NOT encontrado% AND cuatroZ::;4 


1290 IF dir$=cuatro*$(taZ%) THEN encontrado%=-1 :cuatro%=cuatro%+1:pantalla+(filaz, 
columnaZ)="1":PRINT $1, ,pantalla$(fila%,colummaZ) ¡:au 
x%4=cuatroZ :tam=4 :GOSUB 1650 
1292 IF cuatro%=4 AND pasarZ(1) THEN pasarZ (1)=0:numero%=1 :tamZ=4 :GOSUE 1900 :60S 
UB 1750 
1295 tal=taZ+1 
1300 WEND 
1305 numero%=1 :taZ=1 
1310 WHILE numeroZ<3 AND NOT encontrado% AND (tresZ(1)*>3 OR tresz(2) ) 
1315 WHILE taZ<4 AND NOT encontrado% 
1320 IF dir$=tres$(numero%,ta%) THEN encontrado%=-1 :tresí (numeroZ) =tresí (numeroX 
)+1:pantalla+(filaZ,columal)="1":FRINT +1, pantallas 
(fila%,columaZ) ; :auxZ%=tres% (numero%) :tam%=3:GOSUB 1650 
1322 IF tres%(numero%)=3 AND pasarZ(1+numeroZ) THEN pasarZ (1+numeroZ)=0:tam%=3:G 
OSUB 1900:GOSUB 1750 
1925 tal=tal+1 
1330 WEND 
1335 numero%=numeroZ+1:taZ=1 
1340 WEND 
1345 numero%=1 :taZ%=1 
1350 WHILE numero%:<4 AND NOT encontrado% AND (dosZ%(1):<>2 OR dosZ(2)<2 OR dos% (3 
1252) 
1955 WHILE taZ33 AND NOT encontrado% 
1360 IF dir$=dos$+ (numeroZ,ta%) THEN encontrado%=-1 :dosZ (numero%)=dos% (numeroZ)+1 
¿pantalla+(fila%,columaZz)="1":PRINT +1, pantallat (fi 
la%,columnaZ) ; :aux%=d08% (numero%) :tam=2:GOSUE 1650 
1362 IF dos% (numeroZ%)=2 ANO pasar (3+numeroZ) THEN pasarí (3+numeroZ%)=0:tam%=2:G0 
SUB 1900:GOSUB 1750 
1365 tal=taZ+1 
1370 WEND: 
1375 numero%=numeroZ+1:ta%=1 
1380 WEND 
1385 numero%=1 
1390 WHILE numero%:5 AND NOT encontrado% AND. (unoZ(1)<>1 OR unoZ(2)<+1 OR uno% (3 
3351 OR unoZ(4)<;1) 
1395 IF dir$=uno+ (numeroZ,1) THEN encontrado%=-1 :uno%Z (numero%) =uno% (numeroZ)+1:p 
antalla+(fila%,columaZ)="1":¿FPRINT $1, ,pantalla+(fila 
%,columnaZ) ; :auxZ=uno% (numero%) :tam%=1 :GOSUB 1650 
1397 IF unoZ(numeroZ%)=1 AND pasarZ (ó+numeroZ) THEN pasarZ (6+numeroZ)=0:tamZ=1 :GO 
SUB 1900:GOSUB 1750 
1400 numero%=numeroZ+1 
1405 WEND 
1410 IF NOT encontrado% THEN pantallas+(filaZ%,columaZ)=".":¿FRINT +1, pantallas (fi 
laZ,columnaZ) ;:GOSUE 1700 
1415 IF cuatro%=4 AND tres%(1)=3 AND tres%(2)=3 AND dos%(1)=2 AND dos%(2)=2 AND 
dos%(3)=2 AND uno%(1)=1 AND unoZ4(2)=1 AND unoz(3)=1 
AND unoZ%(4)=1 THEN yoX%=-1 
1420 RETURN 
1500 PAPER $+1,1:PEN 41,2 
1505 INK 1,24:INK 2,1 
1510 WINDOW +41 ,46+2*colummal ,46+2*colummaZ,2+2kfila/,2+2Xfila% 
1515 CLS +1 
1520 PRINT $1, ,pantalla+(fila%,columnmaZ); 
1530 RETURN 
1550 FAPER $+1,0:FEN 4$1,1:CLS $1 
1555 PRINT +1 ,pantalla$ (:1%,41%); 
1560 GOSUB 1500 
1565 RETURN 
1600 INK 0,24: INK 1,1 
1605 pres="0025DISPARO YA EFECTUANO" :GOSUB 23050: INE 0,1: INK 1,24:turno%=0 
1607 pausa%=500:GOSUB 4400:intento%=intento%-1 
1610 RETURN e 
1650 IF aux%=tam% THEN pre+="002S5HUNDIDO" :GOSUE 3050 :ELSE pre+$="0025TOCACO" :¿GOSU 
B 3050 
1660 turno%=0 
1670 INK 0,2,6 
1675 pausaZ=3000 :GOSUB 4400 
1680 INK 0,1 
1685 RETURN 
1700 INK 0,24: INK 1,1 
1705 pre$= "0025AGUA" :GOSUE 3050;INK 0,1; INK 1,24:turno%=1 
1707 pausa“=3000 :GOSUB 4400 
1710 RETURN 
1750 FOR k%=1 TO 10 
1755 FOR 1%=1 TO 10 
1760 barcos+(k%,1%)="" 
1765 NEXT 1% 
1770 NEXT k% 
1775 GOSUB 780 
1780 FOR k%=1 TO 10 
1785 FOR 1%=1 TO 10 
1790 IF barcos$(k%,1%)<>"" AND pantallas$(k%,1%)= THEN pantalla+(k%,1%)=barcos+ 
(k%,1%) 3x1%=filaZ:yl%=columna% :filaZ=k%:columnal= 
GOSUB 1550 
1793 NEXT 1% 
1800 NEXT kz% 
1805 RETURN A 
1900 FOR k%=1 TO numeroZ 
1905 FOR 1%4=1 TO tam 
1910 aux$ (14) =cuatros (1%) 
1915 auwx+(1%)=tres$(numeroZ,1%) 
1920 aux* (1%) =do0st+ (numero ,1%) 
1925 IF tamZ%=1 aux (1%) =uno+ (numeroZ,1%) 
1930 NEXT 1% 
1935 NEXT k% 
1940 RETURN 
2000 FOR k%=1 TO 10 
2005 FOR 1%=1 TO 10 
mar$(k7Z,1%)="" 
NEXT 1% 
NEXT kz 
RETURN 
fxZ=1:fy%=1 
GOSUE 3000 
pres+="0025COLOCA TUS BARQUITOS" 
GOSUE 3050: acabado%=0 
WHILE NOT acabado% 
af=INKEYS$:IF as$="" THEN 2070 
IF ASC(a+$):<>224 AND ASC(as 240 AND ASC (a+): :241 AND ASC(a+)<:242 AND ASC ( 
a$)<5243 AND ASC(a+)<13 AND ASC(a+)< 16 THEN 2070 
2080 IF ASC(as)=242 THEN fy%=fy%-1:1F fy%:0 THEN x1%=4x%:41%=fy%+1 :GOSUB 3030 :EL 
SE PRINT CHR$(7) ;:fyZ%=1 


2085 IF ASC(at)=243 THEN fu%=fy%+1:IF fy% 11 THEN x1%=4:% :41%=fu%-1:GOSUE 3030:E 
LSE FPRINT CHR$(7) ¿:fy%=10 
2090 IF ASC(as)=240 THEN 4: %=$x%-1:1F 4:%:0 THEN x1%=4x%+1 :241%=f4% :GOSUEK 3030:EL 
SE FRINT CHR$(7) :f3:%=1 
2095 IF ASC(a$)=241 THEN 4: %=4x2%+1:1F f:%:11 THEN :1%=4x%-1:41%=fy% :GOSUB 3030:E 
LSE FRINT CHR$(7) 3 :f:%=10 
2100 IF ASC(a+)=224 THEN GOSUB 3100 
2105 IF ASC(a+$)=13 THEN GOSUR 3150 
2110 IF ASC(a$)=16 THEN situ/=14:GOSUR 3800:GOTO 2050 
2115 IF uno1%=4 AND dos1i%=3 AND tres1%=2 AND cuatrol%=1 THEN acabado%=-1 
2120 WENO 
2121 GOSUB 3665 
2122 PAFER $1,0:FEN $1,1:CLS RH1:FRINT Hl,mari (4x2 ,fuZ) 
2125 RETURN 
3000 FAFER $1,1:FEN $1,2 
3005 INK 1,24:INK 2,1 
3010 WINDIOW H1,12+2%fy%,1242Xfy% 242K4 2% DAA 
3015 CLS $1 
3020 PRINT $1 ,mar$(4xX%,fyX); 
3025 RETURN 
3030 PAFER $1,0:FPEN $1,1:CLS $1 
3035 PRINT $1,mar*$ (x1%,y41%):5 
3040 GOSUB 3000 
3045 RETURN 
3050 c4=VAL (MIO+ (pre*$,1,2)) 
3055 +%=VAL (MIOS (pre+,3,4)) 
3060 IF c%=0 THEN c%=(80-LEN(pre*$)-4)12 
3065 LOCATE 1,f%:FRINT CHR+(18) 5 
3070 LOCATE c%,f%:PRINT MIOS (pres,5,LEN(pres$)-4) 
3075 RETURN 
3100 IF mar$(4xX%,fy%) <> "" THEN PRINT CHR$(7) ;:pres="0025FOSICION ERRONEA" :GOSU 
E 3050:GOTO 3130 
3105 long%=1ongX%+1 
3110 IF long%>4 THEN FRINT CHR$(7);:lo0ng%4=lon9%-1:pres$="0025EBARCO DEMASIADO GRAN 
DE" :GOSUB 3050:GOSUB 3500:GOTO 3130 
3115 aux*$ (long%)=STR$(fx% -1)+STR$(4fyZ% -1) 
3120 mars (fx, fyl)="1" 
3125 GOSUB 3000 
3130 RETURN 
3150 IF long%=0 THEN PRINT CHR$ (7); 
3152 IF long%=1 THEN unol%=uno1%+1:1F uno1%>4 THEN FRINT CHR$(7);:uno1%=uno1%-1: 
pres$="0025DEMASIADOS BARCOS DIE ESTE TIFO":GOSUB 3050 
¿GOSUB 3500:GOTO 3175:ELSE GOSUB 3550:GOSUB 3600:long%=0:GOTO 3175 
3155 IF long%=2 THEN dosi%=dos1%+1:IF dos1%>3 THEN PRINT CHR$(7) ;:dos1%=dos1%-1: 
pres$="0025DEMASIADOS BARCOS DE ESTE TIFO":GOSUB 3050 
¿GOSUB 3500:GOTO 3175:ELSE GOSUB 3700:lom9g4=0:GOTO 3175 
3160 IF long%=3 THEN treslí/=tres1%+1:1F tres1%>2 THEN PRINT CHR$(7)¡:tresií=tres 
1%-1:pres="0025DEMASIADOS BARCOS DE ESTE TIPO" :GOSUB 
3050:GOSUR 3500:GOTO 317S:ELSE GOSUB 3700:1o0n9%4=0:GOTO 3175 
3165 IF long%=4 THEN cuatrolZ%=cuatro1%+1:1F cuatroi%;1 THEN PRINT CHR$(7) ¡:cuatr 
ol%=cuatrol%4-1:pres$="0025DEMASIADIOS BARCOS DE ESTE T 
IPO" :GOSUB 3050:GOSUB 3500:ELSE GOSUB 3700:long%=0 
3175 RETURN 
3500 FOR k%=1 TO lomgX% 
3502 x1%=4x4 :y14=fyX 
3505 fx 4=VAL (MIOS (aux$(k%) ,1,2))+1 :fy4=VAL (MIOS (aux$(k%),3,2))+1 
3520 mars$(fxZ,fyl)=" " 
3525 GOSUB 3030 
3527 mars$(4xXZ,fyL)="" 
3530 NEXT k% 
3535 longX%=0 
3540 RETURN 
3550 IF long%=1 THEN unol1% (uno1%,1)=auxf$ (1) 
3555 IF long%=2 THEN FOR k%=1 TO Z:dos1$ (dos1%,k%)=aux+$(k%) ¿NEXT kZ 
3560 IF long%=3 THEN FOR k TO 3:tresl$(tres1%,k%)=aux$(k%) ¿NEXT k%Z 
3565 IF long%=4 THEN FOR k%=1 TO 4:cuatrol$(1,k%)=aux$(k%) ¿NEXT kZ 
3567 pres="0025BARCO COMPUTADO" :GOSUE 3050 
3570 RETURN 
3600 FOR k%=1 TO 10 
3605 FOR 1%=1 TO 10 
3610  barcos$(k%,1%)=mar+(k%,1%) 
3615 NEXT 1% 
3620 NEXT kZ 
3625 tamí=1o0n9% 
3630 GOSUB 780 
3635 FOR k%=1 TO 10 
3640 FOR 1%=1 TO 10 
3643 IF barcos$(k%,1%)="." THEN mar$(k%,1%)=" " 
3650 NEXT 1% 
3655 NEXT k% 
3660 RETURN 
3665 FOR k%=1 TO 10 
3670 FOR 1%=1 TO 10 
3675 IF mar$(k%,1%)=" " THEN mars (k%,1%)="" 
3680 NEXT 1% 
3685 NEXT kZ 
3690 RETURN 
3700 GOSUR 3850 :ho%=-1 :ve%=-1:long1%=1l0n9% * 
3705 FOR i%=1 TO long%-1 
3710 fallo%=-1 
3715 xx 4=VAL (MIOS (aux+ (1%) ,1,2))+1 :yy4=VAL (MIOS (aux$ (1%) ,3,2))+1 
3717 xx1%=VAL (MID$ (aux$ (1%+1) ,1,2))+1 :yy1%=VAL (MIDE (aux$ (1741) ,3,2))+1 
3720 IF hol AND xx%+1=xx1% AND yy%=yy1% THEN fallo%=0:ve 
3725 IF vez AND yyl+i=yy1% AND xx%==x1% THEN fallo%=0:ho 
3730 IF fallo% THEN pres="0025BARCO ERRONEO" :GOSUB 3050:GOSUB 3500:GOTO 3755 
3740 NEXT 1% 
3745 GOSUB 3550 :GOSUB 3600 
3750 GOTO 3760 
3755 IF long1%=4 THEN cuatrolZ=cuatrol%-1:ELSE IF lonmg1%=3 THEN tresi%=tresi%-1: 
ELSE IF long1%=2 THEN dosi%=dos1%-1 
3760 RETURN 
3800 CLS 
3805 GOSUB 1000 
3810 uno1%=0:dos1%=0:tres1/=0:cuatrol%=0:long%=0 
GOSUB 2000 
RETURN 
FOR iZ=1 TO longZ%-1 
FOR j%=i%+1 TO long% 
IF aux$(1%) >auxt (9%) THEN ayudat=aux$ (1%) 2auxt (1%) =auxf (3%) 2auxs (5%) =ayud 


NEXT 5% 


3870 NEXT iZ 
3875 RETURN 
poa o A 
eabl=- 
4010 RANDOMIZE TIME 
4015 turno%=INT(RNDX2) 
4020 DIM aux1$(4) :fila%=1 :columnaZ%=1 :tocado%=0 
4025 WHILE NOT yoZ AND NOT ordenadorZ 
4030 IF turno%=0 THEN GOSUB 1500:pre$="0025TE TOCA JUGAR" :GOSUB 3050:GOSUB 1235: 
ELSE GOSUB 4100 
4035 WEND 
4040 CLS 
4045 IF yo% THEN pre$="0010ENHORABUENA HAS GANADO" :GOSUB 3050:LOCATE 21,14 :PRINT 

"LO HAS CONSEGUIDO EN"zintentoZ;" INTENTOS" :ELSE pre 
$="0010 MEJOR SUERTE LA PROXIMA VEZ":GOSUB 3050 
4050 pre$="0016PULSA UNA TECLA PARA SEGUIR" :GOSUE 3050 
4055 IF INKEYS$="" THEN 4055 
4060 RETURN 
4100 IF NOT tocadol THEN RANDOMIZE TIME :fx%=1+INT(RNDX10) :fy4=1+INT(RNDX10) :IF m 
ars(fxZ,fy%)="." OR mar$(fxZ,fy%)="X" THEN 4100 
4105 IF NOT tocado THEN 4155 
4110 GOSUB 700 
4111 £x%=4x1%:3fy%=fylX 
4112 IF der OR izq% THEN fico%=fyXZ:ELSE fico%=fxX4 
4115 IF (hoiz4 OR hodeX) AND (izq% OR der) THEN 4120:ELSE 4125 
4120 fico%=fico%+desp1%:IF fico%>0 AND fico4<11 THEN IF mars$(fx%,fico%)="." AND 
der THEN hode%=0:GOTO 4110:ELSE IF mar$(fx%,fico%)= 

"," AND izq% THEN hoiz%=0:GOTO 4110:ELSE IF mar$(fx%,ficoX)="X" THEN 4120:ELSE 
y%=ficoZ:GOTO 4155 
4125 IF (veab% OR vearZ) AND (arriba OR abajo“) THEN 4130:ELSE GOTO 4135 
4130 ficol=fico%+despl1Z:IF fico%>0 AND fico%<11 THEN IF mar$(ficoZ,fyX)="." AND 
arriba THEN vearZ=0:GOTO 4110:ELSE IF mar$(íficoZ,fy 
%)="." AND abajo THEN veab%=0:GOTO 4110:ELSE IF mar$(ficoZ,fy4)="X" THEN 4130:E 
LSE fx%=ficoX%:GOTO 4155 
4135 GOTO 4110 
4155 IF fyX=10 THEN fy%=0 
4157 pre$="2025"+CHR$ (64+4x%)+STR$(fy%) :GOSUB 3050:IF fy%=0 THEN fyZ=10 
4160 LOCATE 30,25: INPUT "SITUACION A/T/H : ",c$ 
4165 cs$=UPPERS (c$) 
4170 IF LEN (c$)<1 THEN 4155 
4175 IF LEN(c$)<2 AND (c$<>"A" AND cs$<>"T" AND c$<>"H") THEN 4155 
4180 IF LEN (c$)>1 AND (c$<>"AGUA" AND c$<>"TOCADO" AND cs$<>"HUNDIDO") THEN 4155 
4185 c$=MID$ (c$,1,1) 
4190 IF cs$="A" AND mar$(fx%,fyX)<>"" THEN pre$="0025NO ME CREO NADA" :GOSUB 3050: 
pausaZ=2000 :GOSUB 4400:GOTO 4155 
4195 IF (c$="T" OR c$="H") AND mar$(fxZ,fyX)="" THEN pre$="0025NO ME CREO NADA" : 
GOSUB 3050 :pausa“=2000 :GOSUB 4400:GOTO 4155 
4205 IF c$="A" THEN mar$(fxZ,fyX)=".":GOSUB 4420:turno%=0:GOTO 4330 
4210 aux$(0)=STR$ (fx 4-1) +STR$ (fyZ-1) 
4225 IF NOT entrarZ THEN FOR i%=1 TO 4:1F aux$(0)=cuatrol1$(1,i14) THEN entrarl=-1 
:hundido%=4:GOTO 4305:ELSE NEXT i% 
4230 IF NOT entrarZ THEN FOR iZ=1 TO 2:FOR j%=1 TO 3:IF aux$(0)=tres1$(14,3%) TH 
EN entrarZ=-1:hundido%=3:GOTO 4305:ELSE NEXT jZ:¿NEXT 

iZ 
4235 IF NOT entrar% THEN FOR i%=1 TO 3:FOR jX%=1 TO 2:1F aux$(0)=dos1$(1%,j%) THE 
N entrar%=-1:hundido%=2:GOTO 4305:ELSE NEXT jZ:NEXT 

iZ 
4240 IF NOT entrarZ THEN FOR i%=1 TO 4:1F aux$(0)=uno1$(1%,1) THEN entrarZ=-1:hu 
ndido%=1:GOTO 4305:ELSE NEXT ¡1% 
4305 IF c$="H" AND hundido%-1<>0 THEN pre$="0025NO ME CREO NADIA" :GOSUB 3050 :pau 
sal=2000:GOSUB 4400:GOTO 4155 
4307 1F c$="T" AND hundido%-1=0 THEN pre$="0025NO ME CREO NADIA" :GOSUB 3050 :pausa 
%=2000:GOSUB 4400:GOTO 4155 
4310 mar$(fxZ,fyX)="X" :GOSUB 4420:largo%=largo%+1:total%=total%+1:aux1$(largoZ)= 
aux$(0) shundido%=hundido%4-1 
4315 IF c$="T" THEN tocado%=-1:fx1%=fx%:fy1%=fyZ 
4317 IF largo%=2 THEN IF der OR izq% THEN vearZ=0:veab%=0:ELSE hoiz%=0:hodel=0 
4320 IF hundido%=0 THEN tocado%=0:tam%=1argo% :GOSUB 4500:1largo%=0:entrarZ=0:hoi 
z4=-1 :hodel=-1 :veabl=-1:vearl=-1 

4325 IF total%=20 THEN ordenador%=-1 
4330 RETURN 
4400 FOR m%=1 TO pausaZ:NEXT 
4405 RETURN 

4420 PAPER 41,0:PEN 41,1 :WINDOW 41 ,46+2*columnaZ ,46+2XcolumnaZ,2+2*fila4,2+24f11 
al 
4425 CLS $1 

4430 PRINT $1 ,pantalla$(filaZ,columnaZ) ; 
4435 PAPER $1,1:PEN 41,2: INK 1,24: INK 2,1 
4440 WINDOW $1,12+2X4yZ,12+2KfyL ,2+2kX4xZ ,2+2KfxZ 
4445 CLS $1:PRINT Hi mar$(fxZ,fyZ); 
4450 PAPER 41,0O:PEN $1,1:CLS $1:PRINT Hi, mars$(fxZ,fyZ); 
4455 GOSUB 1500 
4460 RETURN 
4500 FOR iZ=1 TO tamZ 
4505 aux$(i%)=aux1$(1%) 
4510 NEXT i%Z i 
4515 FOR iZ=1 TO 10 
4520 FOR j%=1 TO 10 

4525 barcos$(1%,j%)=mar$(1%,j%) 
4530 NEXT j% 

4535 NEXT i% 
4540 GOSUB 780 

4545 FOR iZ=1 TO 10 
4550 FOR j%=1 TO 10 

4555 IF barcos$(14,j2)<>"" AND mar$(1%,j%)="" THEN mar$(1%,J%)=barcos$(14,j%) fx 
Z=i%:fy%=j1:GOSUB 4420 4 

4560 NEXT jX 
4565 NEXT i% 

4570 RETURN 
6000 MODE 1:BORDER 25,1 

6005 LOCATE 14,5:PRINT "AMSTRADIMANIA" 

£010 LOCATE 3,14:PRINT "Presenta : LA ARMADA CONTRATACA" 

6015 LOCATE 10,23:PRINT CHR$(164);" EDITORIAL COMETA" 

¡20 pausal=10000:GOSUB 4400 

125 BORDER 1:RETURN 
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Has conseguido una suscripción gratuita durante un año. 
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AVANCE DE LA PROGRAMACION 
DEL PROXIMO NUMERO 
ENTRE OTROS PROGRAMAS TENDREMOS: 


e El tute 
El tiro parabólico 

Dibujo oculto 

Definición de caracteres 

Sin olvidar nuestro curso de introducción al 
Basic IV 


NOM ia 


DOMICILIO... 


PrOVINCIA a 


Deseo suscribirme a la revista AMSTRADMANIA por un año consecutivo (11 números) al 
precio de 4.312 pesetas, más 400 de envío. El primer número que deseo recibir es el .............. 


El precio de la suscripción lo abonaré: 


Contra reembolso del primer envío 


Ml 


Por talón bancario a nombre de EDITORIAL COMETA, S.A. U 
Recibo de EDITORIAL COMETA, S. A., en concepto de inscripción anual hasta nueva orden, 


a la revista AMSTRADMANIA. 


Potosí, 1 - 28016 MADRID - Teléfono 276 13 60 


LA IMPRESORA 100% COMPATIBLE 
PARA TU AMSTRAD 


e ANT, CARRETERA DEL PRAT / PJE,_ DOLORES 
TEL. (93) 3363362  TLX. 93539DSIE-E 
L'HOSPITALET DE LLOBREGAT (BARCELONA) 


e INFANTA MERCEDES, 83 
TELS. (91) 279 11 23 / 279 36 38 
28020 MADRID 


Glacon 


PROGRAMA DE CONTABILIDAD GENERAL 


Con aplicaciones para IVA 


> 


Informática al día 


MICROMOUSE, S.A., C/Ferraz,66 -19B Telef: 2473703 28008 MADRID 


